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

 

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

 

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

 回复19楼，我测试，并没有报错。怎么操作会报错？

 回复21楼，在窗口的两个表控件的currentChanged事件加入代码

 

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

 

'后面的代码

 代码写得一点也不严谨

  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sql201307.rar

 

编写代码的时候，自己加啊，这么基本的都不会。

 

Case "Button6"

    Dim nr As Row = CurrentTable.Addnew

    nr("身份证") = Tables("xxx_YYY").Current("身份证")

 回复29楼，改了 窗口 click 事件；全局表事件 afterload 事件