代码不懂，请解释

小赵　发表于：2013-04-19 17:31:48 　

在报销教程里面第4.5中获得焦点事件里面有一串代码不明白啥意思，且在F1帮助里面找不到。请详细解释给予相关说明
Private Sub ygID_GotFocus()
    On Error GoTo err_ygid_gotfocus:
    selectstr = Me.ygID
    Forms!usysfrmmain!labFind.Tag = 1
    Forms!usysfrmmain!btnEdit.Tag = 999
exit_ygid_gotfoucus:
    Exit Sub
err_ygid_gotfocus:
    Resume exit_ygid_gotfocus
End Sub
且标红的字可能不合适。

Top

竹笛发表于：2013-04-19 18:04:45

具体是哪一行代码？

可能不合适？如果是教程上一模一样的，就肯定是合适的，除非你改了代码。因为教程上以前已测试过了。

Top

杜超-2号发表于：2013-04-19 19:38:31

Private Sub ygid_GotFocus()          'ygid获得焦点事件
On Error GoTo Err_ygId_GotFocus:
    selectstr = Me.ygId              '给变量赋值，使selectstr等于ygid的值
    Forms!usysfrmMain!labFind.Tag = 1    '这是个判断条件，当其等于1时点击查询按钮时，打开平台内的查询窗体
    Forms!usysfrmMain!btnEdit.Tag = 999 '当其大于1时点击"修改"按钮时，平台就会自动打开"_Edit"窗体
Exit_ygid_GotFocus:
    Exit Sub
Err_ygid_GotFocus:
End Sub

Top

小赵发表于：2013-04-19 23:19:46

谢谢。问题已解决。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]代码不懂，请解释