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


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

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

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望: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()



 回到顶部