以下是引用OKK在2017/1/20 19:15:00的发言:
能在全局代码写吗,因为很多表和窗口都需要调取dr,如果在表里面写,那就要写很多次了
写一个类来用吧,全局代码
Public Class pval
Public Shared Property dyl() As String
Get
Return Tables("表A").Current("第一列")
End Get
Set
Tables("表A").Current("第一列") = value
End Set
End Property
Public Shared Property del() As String
Get
Return Tables("表A").Current("第二列")
End Get
Set
Tables("表A").Current("第二列") = value
End Set
End Property
End Class
调用
msgbox(pval.dyl)
pval.dyl = "12345"
msgbox(Tables("表A").Current("第一列"))
[此贴子已经被作者于2017/1/20 22:23:33编辑过]