Foxtable(狐表)用户栏目专家坐堂 → 关于窗体上的数据表的问题


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

主题:关于窗体上的数据表的问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/12 14:49:00 [显示全部帖子]

systemready = False
If e.Table.name <> "数据操作日志" Then
    Tables("数据操作日志").filter = e.Table.filter
ElseIf Forms("辅助窗体").opened AndAlso e.Table.name <> "辅助窗体_table1" Then
    Tables("辅助窗体_table1").filter = e.Table.filter
End If
systemready = True

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/12 15:21:00 [显示全部帖子]

不可能。具体实例发上来测试。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/12 16:09:00 [显示全部帖子]

afterLoad事件

 

If Forms("主窗体").Opened Then
    systemready = False
    Dim ck1 As WinForm.Table = Forms("主窗体").Controls("Table1")
    Tables("辅助窗体_Table1").DataSource =ck1.Table.DataTable
    Tables("辅助窗体_Table1").filter = ck1.Table.filter
    Dim t As Table = ck1.Table
    Tables("辅助窗体_Table1").Select(t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
    systemready = True
End If


 回到顶部
总数 14 上一页 1 2