以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]根据当前行某列内容将指针定位到其他表的位置 (http://foxtable.net/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 -- 谢谢“蓝”老师!非常感谢!! |