以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口表内容不更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51273)

--  作者:yangwenghd
--  发布时间:2014/5/23 9:45:00
--  窗口表内容不更新
问一下大家,设计了一个按钮(上一条、
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:行更新.zip

下一条),为什么点击后窗口表里面的行内容不更新呢?有没什么办法让表的内容再点击下一条后窗口表的行就自动更新。
--  作者:Bin
--  发布时间:2014/5/23 9:49:00
--  
没搞懂你的意思,自动更新什么? 你移动数据的表和你窗口绑定的表还有数据都毫无关系的.
--  作者:有点甜
--  发布时间:2014/5/23 9:52:00
--  

在表的positionChanged事件加入代码

 

If Forms("产品尺寸制作").Opened Then
    Forms("产品尺寸制作").Controls("Table1").Table.Filter = "产品编号 = \'" & "\' Or _Identify = " & e.Table.Rows(0)("_Identify")\'窗口与表显示编号对于的行.,还有第一行.
    \'Forms("产品尺寸制作").Controls("TabControl1").SelectedPage = Forms("产品尺寸制作").Controls("TabControl1").TabPages("表格方式")
End If
\'
If Forms("产品尺寸制作").Opened Then
    Forms("产品尺寸制作").Controls("Table2").Table.Filter = "产品编号 = \'" & e.Table.Current("商品信息_档案号") & "\' Or _Identify = " & e.Table.Rows(0)("_Identify")\'窗口与表显示编号对于的行.,还有第一行.

    \'Forms("产品尺寸制作").Controls("TabControl1").SelectedPage = Forms("产品尺寸制作").Controls("TabControl1").TabPages("表格方式")
End If

If Forms("产品尺寸制作").Opened Then
    Forms("产品尺寸制作").Controls("Table3").Table.Filter = "产品编号 = \'" & e.Table.Current("商品信息_档案号") & "\' Or _Identify = " & e.Table.Rows(0)("_Identify")\'窗口与表显示编号对于的行,还有第一行.
    \'Forms("产品尺寸制作").Controls("TabControl1").SelectedPage = Forms("产品尺寸制作").Controls("TabControl1").TabPages("表格方式")
End If