Foxtable(狐表)用户栏目专家坐堂 → [求助]删除两个临时表出错


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

主题:[求助]删除两个临时表出错

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


加好友 发短信
等级:三尾狐 帖子:712 积分:5547 威望:0 精华:0 注册:2019/11/14 9:36:00
[求助]删除两个临时表出错  发帖心情 Post By:2022/6/16 0:42:00 [只看该作者]

这是窗口的AfterLoad事件,增加了两个临时表

'增加临时表==============================================

'------------------------------------------------------ 报表所有列
Dim dt1 As New DataTableBuilder("
报表所有列")
dt1.AddDef("
列标题", Gettype(String), 16)
dt1.AddDef("
列名称", Gettype(String), 50)
dt1.Build()
Tables("
报表所有列").Visible = True
'------------------------------------------------------
报表打印列
Dim dt2 As New DataTableBuilder("
报表打印列")
dt2.AddDef("
列标题", Gettype(String), 16)
dt2.AddDef("
列宽", Gettype(Integer))
dt2.AddDef("
左中右", Gettype(String), 16)
dt2.AddDef("
列名称", Gettype(String), 50)
dt2.Build()
Tables("
报表打印列").Visible = True

'
绑定表================================================
Tables(e.Form.name & "_table1").DataSource = DataTables("
报表所有列")
Tables(e.Form.name & "_table2").DataSource = DataTables("
报表打印列")

 

这是窗口的AfterClose事件,删除两个临时表

If DataTables.Contains("报表打印列")  Then
    DataTables.Unload("
报表打印列")
End If
If DataTables.Contains("
报表所有列")  Then
    DataTables.Unload("
报表所有列")
End If

 

如果增加表不绑定,关闭窗口后删除两个表没有问题,

绑定两个表,关闭窗口后删除任何一个表也没问题,但删两个表时总报错,提示没有这个表

 

[此贴子已经被作者于2022/6/16 0:42:56编辑过]

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


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/16 9:01:00 [只看该作者]

不需要卸载,不要生成到主表区,正确用法

AfterLoad事件,增加了两个临时表

'增加临时表==============================================

'------------------------------------------------------ 报表所有列
Dim dt1 As New DataTableBuilder("
报表所有列")
dt1.AddDef("
列标题", Gettype(String), 16)
dt1.AddDef("
列名称", Gettype(String), 50)
Tables(e.Form.name & "_table1").DataSource = dt1.Build
DataSource()

'------------------------------------------------------ 报表打印列
Dim dt2 As New DataTableBuilder("
报表打印列")
dt2.AddDef("
列标题", Gettype(String), 16)
dt2.AddDef("
列宽", Gettype(Integer))
dt2.AddDef("
左中右", Gettype(String), 16)
dt2.AddDef("
列名称", Gettype(String), 50)
Tables(e.Form.name & "_table2").DataSource = dt2.Build
DataSource()



 回到顶部