主题：[求助] 多用户同时编辑限制

我在表的Click中写有以下命令；但是由于在执行加载当前行命令时、加载需要一定的时间，在还没有加载完成前、就执行了后面的命令；造成后面执行了错误的判断。我该怎么做才能保证在执行加载命令完成后才开始执行后面的命令？

If Forms("宽带帐号割接回访主窗口").Opened() Then
    If vars("换行前") = False Then
       
        If e.Table.Name = "宽带帐号割接回访表" Then
            Forms("宽带帐号割接回访主窗口").Controls("Table1").Table.Current.Load()
            

在此处能否加入什么命令来确保上面的加载命令完成后、才执行下面的命令？

            Dim drn As Row = e.Table.Current
            If  drn("编辑锁定") =False Then
                Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
                p1.Visible = True
                Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
               
            Else
                If User.Name = drn("编辑锁定工号") Then
                   
                    Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
                    p1.Visible = True
                    Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
                Else
                    Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
                    p1.Visible = False
                    Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
                   
                End If
            End If
        End If
    End If
End If