主题：[求助]登录用户的问题?

看了一下，不能不加载表，因为你动态的表的事件，必须在表加载的前提下才有效

Select Case e.DataTableName
    Case "基本资料","员工" '表A和表B无条件加载
    Case "挂号表","门诊病历","处方","实验室检查","病人扫描资料库","模板1","窗口列表项目","实验室清单模板","药品清单模板","身份证籍贯编码","代码记录"
        If e.User.Type <> UserTypeEnum.Developer Then '只有开发者才加载表C
            e.Cancel = True
        End If
    Case Else '其他所有表默认都不加载
        e.Cancel = True
End Select

 那，你就初始不要加载表，点击按钮，需要用到表的时候，再加载进来，这样就不会慢了

 http://www.foxtable.com/help/topics/2753.htm

 回复16楼，循环触发了CurrentChanged事件了。你改一下代码

If e.Table.Current Is Nothing Then
    Return
End If

SystemReady = False
If e.Table.Name = "基本资料" Then
    If Forms("窗口1").Opened AndAlso Tables.Contains("窗口1_Table1") Then '如果窗口已经打开
        Dim dr As DataRow = e.Table.Current.DataRow
        Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
        If wz >=0 Then
            Tables("窗口1_Table1").Position = wz
        End If
    End If
Else If e.Table.Name = "窗口1_Table1" Then
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("基本资料").FindRow(dr)
    If wz >=0 Then
        Tables("基本资料").Position = wz
    End If
End If
SystemReady = True