別々のフォームから1つの関数をcallするには?


ばんび  2004-08-02 23:47:46  No: 115261

こんにちは。初めて質問させていただきます。
VB.NETでの質問です。

別々のフォームから値を入力し、マスタ参照のサブルーチンをcallし、
それぞれのフォームへ名称等を返したいのですが、どのようにすればよいのでしょうか?

フォーム1でtext1.textに値入力。入力後、マスタ参照関数call
フォーム2でtext1.textに値入力。入力後、マスタ参照関数call
マスタ参照関数
Public Sub InpSiire(ByRef Frm As ***, ByVal sender As Object,         ByVal e As System.Windows.Forms.KeyEventArgs)

     With Frm
       strsql = "select * from siire_mst where                                             siirecd='"& .TextBox1.Text & "'"
       **  DBよりマスタを参照し、名称を返す  **
         .Label10.Text = CType(cnRd.Item("siireme"), String)


ばんび  2004-08-02 23:59:23  No: 115262

すいません。
間違って途中で送信してしまいました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加