Как проверить, существует ли переменная в пользовательской форме - PullRequest
0 голосов
/ 14 февраля 2019

У меня есть 2 разные пользовательские формы в качестве источника и 1 пользовательская форма в качестве адресата, 1 модуль для управления отправкой данных.

Необходимо скопировать переменные в целевые переменные пользовательской формы.

Но если переменные несуществует в пользовательской форме назначения, переменные не будут копироваться.

  1. Посоветуйте, пожалуйста, как проверить, существует ли переменная в пользовательской форме назначения.

  2. Какскопировать эти группы переменных для каждого цикла?

Заранее признателен.

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

frmOrgA (пользовательская форма): 3 переменные (strA asстрока, strB как строка, strC как строка)

frmOrgB (пользовательская форма): 4 переменные (strA как строка, strB как строка, strC как строка, strD как строка)

frmDest (пользовательская форма): 3 переменная (strA как строка, strB как строка, strC как строка)

frmOrgB (пользовательская форма)

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

Global (Module)

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...