类
Public Class Class1
Sub INstr(ByVal FstrA As String, ByVal FtpsA As String, ByVal UserNameA As String, ByVal Frm As System.Windows.Forms.Form, ByVal X As Integer, ByVal TX As String, ByVal cmp As String)
Dim Fm As New Frm_TPS_BOM_F
Fstr = FstrA
Ftps = FtpsA
UserName = UserNameA
CmpName = cmp
Fm.TextBox1.Text = TX
If X = 0 Then
Fm.MdiParent = Frm
Fm.Show()
Else
Fm.ShowDialog()
End If
End Sub
End Class
模块
Module Module1
Public CmpName As String'公司名称
Public Fstr As String'sql连接1
Public Ftps As String'sql连接2
Public UserName As String'用户名
End Module
我是这样传递的
[
本帖最后由 jianjunfeng 于 2015-1-12 18:55 编辑 ]