主题：关于窗口查询报错的问题

表格的currentChanged事件

 

'------------------------------副本Table之行位置联动开始----------------------
If e.Table.current IsNot Nothing 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
'------------------------------副本Table之行位置联动结束----------------------

 

修改你窗口的表格的事件代码。

 

这里啊

 

此主题相关图片如下：qq截图20190319173426.png

改成这样啊

 

'------------------------------副本Table之行位置联动开始----------------------
If e.Table.current IsNot Nothing 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
'------------------------------副本Table之行位置联动结束----------------------

Dim dwzs As  Integer
dwzs=DataTables("客户信息表").sqlCompute("count([_identify])")
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label3")
lbl.Text = dwzs

 

http://www.foxtable.com/webhelp/scr/2897.htm