Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口副本表问题


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

主题:[求助]窗口副本表问题

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


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
[求助]窗口副本表问题  发帖心情 Post By:2015/10/11 14:03:00 [显示全部帖子]

模式窗口中有一副本表, 有一修改按钮, 如何选择表中某行,点击修改按钮, 显示出本行数据进行修改呢?

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/10/11 14:28:00 [显示全部帖子]

搞明白了, 把下段代码加到按钮里就可以了

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/10/11 14:28:00 [显示全部帖子]

副本Table之行位置联动

假定窗口中插入了一个Table控件,绑定到"表A",作为副本
希望在这个副本Table中选定一行时,表A也能自动选定这一行,实现这个任务很简单,只需将副本Table的CurrentChanged事件代码设置为:

Dim dr As DataRow = e.Table.Current.DataRow
Dim
wz As Integer = Tables("A").FindRow(dr)
If
wz >=0 Then
      Tables(
"A").Position = wz
End
If

反过来,如果你想在表A选定某行时,副本Table也能同步选定同一样,可以讲表A的CurrentChanged事件代码设置为:

If Forms("窗口1").Opened Then '如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
   
If wz >=0 Then
        Tables(
"窗口1_Table1").Position = wz
   
End If
End
If


 回到顶部