Foxtable(狐表)用户栏目专家坐堂 → 项目打开加载与窗口加载冲突,如何解决?


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

主题:项目打开加载与窗口加载冲突,如何解决?

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


加好友 发短信
等级:五尾狐 帖子:1166 积分:7833 威望:0 精华:0 注册:2019/6/13 9:57:00
项目打开加载与窗口加载冲突,如何解决?  发帖心情 Post By:2022/5/30 10:34:00 [显示全部帖子]

项目打开加载

Select Case e.DataTableName
    Case "Users", "表A" 
   Case Else 
        e.Cancel = True
End Select
上面代码执行,系统只有"Users", "表A" ,好象是正常,但业务窗口就不正常

业务窗口-窗口打开后事件,
订单主表和订单明细是关联表

Dim Filter As String
Filter = " 制单人='" & _UserName & "'  And 审核 Is null"
DataTables("订单主表").LoadFilter = Filter '
DataTables("订单主表").Load()
代码执行,提示找不到“订单主表”,关联订单明细也不显示,要如何解决?


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


加好友 发短信
等级:五尾狐 帖子:1166 积分:7833 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/5/30 12:27:00 [显示全部帖子]

项目打开加载

Select Case e.DataTableName
    Case "Users", "表A" 
   Case Else 
        e.Cancel = True
End Select


窗口上显示,订单主表和订单明细

用下代码,只显“订单主表”不显示明细关联表

If DataTables.
Contains("订单主表") = False Then
    DataTables.
Load("订单主表|订单明细")
End If

改下面,也是一样无效
If DataTables.Contains("订单主表") = False Then
    DataTables.
Load("订单主表|订单主表.订单明细")
End If

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


加好友 发短信
等级:五尾狐 帖子:1166 积分:7833 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/5/30 14:41:00 [显示全部帖子]

问题一:执行下面代码,只加载"Users"表,不加载"表A",数据库有"表A"表存在,这是什么问题?
项目打开加载

Select Case e.DataTableName
    Case "Users", "表A" 
   Case Else 
        e.Cancel = True
End Select


问题二:窗口事件没有窗口打开前事件,只有项目打开事件,那是不是只放在这里?
If DataTables.Contains("订单主表") = False Then
    DataTables.
Load("订单主表|订单明细")
End If
forms("xx窗口").open


 回到顶部