以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]根据当前行某列内容将指针定位到其他表的位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184241)

--  作者：bashanren --  发布时间：2022/11/29 15:41:00 --  [求助]根据当前行某列内容将指针定位到其他表的位置 各位老师好！ 下面表达式，是想当鼠标移动到A表的某行时，根据当前行的“mjzXM”（姓名）值，将指针定位到B表的“mjzXM”（姓名）值的行，我在A表的“PositionChanged”事件中写了这段表达式后，起不了作用，没有任何反应，请老师指导，谢谢！ If e.Table.Current Is Nothing Then \'如果Current为Nothing     MessageBox.Show("您还未选择的具体行！", "提示") Else     Dim XM As String = Tables("GLCSTJG").current("mjzXM")     Dim dr As DataRow     Output.Show(XM)     dr = DataTables("MJRYXXB").Find("[mjzXM] = \'XM\'")     If dr IsNot Nothing Then         Dim wz As Integer = Tables("MJRYXXB").FindRow(dr)         If wz >= 0 Then             Tables("MJRYXXB").Position = wz         End If     End If      End If

--  作者：有点蓝 --  发布时间：2022/11/29 15:48:00 --   先看3遍：http://www.foxtable.com/webhelp/topics/1284.htm dr = DataTables("MJRYXXB").Find("[mjzXM] = \'" & XM & "\'")

--  作者：有点蓝 --  发布时间：2022/11/29 15:49:00 --   没有必要查2次 Else     Dim XM As String = Tables("GLCSTJG").current("mjzXM")         Dim wz As Integer = Tables("MJRYXXB").FindRow("[mjzXM] = \'" & XM & "\'")         If wz >= 0 Then             Tables("MJRYXXB").Position = wz         End If End If

--  作者：bashanren --  发布时间：2022/11/29 16:05:00 --   谢谢“蓝”老师！非常感谢！！