以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  选中行后其他表也自动选中行有问题，帮忙排查  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116398)

--  作者：mxy8898 --  发布时间：2018/3/23 20:54:00 --  选中行后其他表也自动选中行有问题，帮忙排查 If e.Table.Current Is Nothing Then \'如果Current为Nothing     Return \'则返回 End If Dim zjzh As Integer Dim zjzh1 As DataRow zjzh1 = DataTables("原始数据中间转换").Find("[引用] = \'" & e.Table.Current("_IDENTIFY") & "\'") If zjzh1 IsNot Nothing Then     zjzh = Tables("原始数据中间转换").FindRow(zjzh1)     If zjzh >= 0 Then         Tables("原始数据中间转换").Position = zjzh     End If End If \'Y以上选择本表,定位到钾离子表 如上代码 数据库量大，每个表都加载30行后，选中其中一个后在表A里选中一行后，原始数据中间转换表中不能找到选中这行。如何设置条件

--  作者：有点蓝 --  发布时间：2018/3/23 21:13:00 --   If e.Table.Current Is Nothing Then \'如果Current为Nothing     Return \'则返回 End If Dim zjzh As Integer Dim zjzh1 As DataRow zjzh1 = DataTables("原始数据中间转换").Find("[引用] = \'" & e.Table.Current("_IDENTIFY") & "\'") If zjzh1 Is Nothing Then     Dim drs As List(of DataRow) = DataTables("原始数据中间转换").AppendLoad("[引用] = \'" & e.Table.Current("_IDENTIFY") & "\'")     If drs.count = 0 Then         Return     Else         zjzh1 = drs(0)     End If End If zjzh = Tables("原始数据中间转换").FindRow(zjzh1) If zjzh >= 0 Then     Tables("原始数据中间转换").Position = zjzh End If