Question

我有2个不同的用户表单作为源，有1个用户表单作为目的地，有1个模块用于处理数据发送。

需要将变量复制到目标用户形式变量。

但是，如果目标用户窗体中不存在变量，则变量将不会继续复制。

请告知如何检查目标用户表单上是否存在变量。
如何复制循环中处理的那组变量？

我先感谢了。

for each obj in variables in frmDest
    obj = frmOrgA.obj 'if variable exist, the variables name is same
next obj

frmOrgA（Userform）：3个变量（strA作为字符串，strB作为字符串，strC作为字符串）

frmOrgB（Userform）：4个变量（strA作为字符串，strB作为字符串，strC作为字符串，strD作为字符串）

frmDest（Userform）：3个变量（strA作为字符串，strB作为字符串，strC作为字符串）

frmOrgB（用户表单）

Public Sub cmdDest_Click()
    Set Tg = frmDest
    Call IncomingSync(Me, Tg)
End Sub

全局（模块）

Public Sub IncomingSync(OrgUF As Object, TgUF As Object)
    ICrun = False: ICrun = True
    TgUF.strA = OrgUF.strA ' can be use for each in?
    TgUF.strB = OrgUF.strB
    TgUF.strC = OrgUF.strC
    If not TgUF.strD is nothing Then TgUF.strD = OrgUF.strD 
    'can I detect if variable is exist?
    frmDest.Show
End Sub

如何检查用户表单上是否存在变量

0 个答案: