Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]光标定位


  共有3143人关注过本帖平板打印复制链接

主题：[求助]光标定位
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1335 积分：10339 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]光标定位  发帖心情 Post By：2019/8/30 18:55:00 [只看该作者]

我有通过按钮生成的同一个窗口中的Table1和Table2,两个并排，我要实现在Table1中选择某一行时，Table2的光标自动定位在特定行，下面代码没效果，要如何改

If Tables("统计_Table1").Current Is Nothing Then 
    Return 
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("统计_Table2").Find("[部门名称] = '" & Tables("统计_Table1").Current("部门名称") & "'")
If dr IsNot Nothing Then
    wz = Tables("统计_Table2").FindRow(dr)
    If wz >= 0 Then
        Tables("统计_Table2").Position = wz
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询