Foxtable(狐表)用户栏目专家坐堂 → [求助]根据当前行某列内容将指针定位到其他表的位置


  共有6563人关注过本帖树形打印复制链接

主题:[求助]根据当前行某列内容将指针定位到其他表的位置

帅哥哟,离线,有人找我吗?
bashanren
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
[求助]根据当前行某列内容将指针定位到其他表的位置  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 15:48:00 [只看该作者]

先看3遍:http://www.foxtable.com/webhelp/topics/1284.htm

dr = DataTables("MJRYXXB").Find("[mjzXM] = '" & XM & "'")

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
  发帖心情 Post By:2022/11/29 16:05:00 [只看该作者]

谢谢“蓝”老师!非常感谢!!

 回到顶部