If DataTables.Contains("TabFid") = False Then '增加判断防止每次编辑项目属性后窗口就从临时表消失
Dim dtb As New DataTableBuilder("TabFid")
dtb.AddDef("wn", Gettype(String),20) '窗口名
dtb.AddDef("Mtb", Gettype(String),32) '主表名
dtb.AddDef("Curtb", Gettype(String),32) '窗口中的当前活动表名,即Currenttable.Name
dtb.AddDef("winlb", Gettype(String),8) '窗口类别
dtb.AddDef("Fid", Gettype(Byte)) '流程号
dtb.AddDef("Idcol", Gettype(String),10) '单据识别列
dtb.AddDef("Rcol", Gettype(String),10) '关联列
dtb.AddDef("LoadFs", Gettype(Integer)) '加载方式 0按默认加载,1为用户自定义加载,,2为通过加载树加载
dtb.AddDef("CanAddnew", GetType(Boolean)) '可新增
dtb.AddDef("CanMD", Gettype(Boolean)) '可修改
dtb.AddDef("CanCK", GetType(Boolean)) '可查阅报表
dtb.AddDef("CanOver", Gettype(Boolean)) '可结案
dtb.AddDef("CanPrt", Gettype(Boolean)) '可打印
dtb.AddDef("CanExp", Gettype(Boolean)) '可导出
dtb.AddDef("CanImport", Gettype(Boolean)) '可导出
dtb.AddDef("CanReset", Gettype(Boolean)) '可重置
dtb.AddDef("ShowTree", Gettype(Boolean)) '显示加载筛选目录树
dtb.AddDef("pg", Gettype(Integer)) '当前页
dtb.AddDef("pgs", Gettype(Integer)) '总页数
dtb.AddDef("RowsPage", Gettype(Integer)) '每页加载行数
dtb.AddDef("RowsTotal", Gettype(Integer)) '总行数
dtb.AddDef("trRows", Gettype(Integer)) '每页加载树行数
dtb.AddDef("trPage", Gettype(Integer)) '当前加载树页数
dtb.AddDef("ldRange", GetType(String), 16) '查阅范围
dtb.AddDef("Isrange", Gettype(Boolean)) '是否设置了查阅范围
dtb.AddDef("IsdynamicTr", GetType(Boolean)) '目录树是否根据条件生成
dtb.AddDef("sortCol", Gettype(String),32) '排序列
dtb.AddDef("trcol", Gettype(String),32) '加载树列
dtb.AddDef("trcolNull", Gettype(String),400) '加上null判断的目录树列
dtb.AddDef("sqlcol", Gettype(String),200) '需要从sql数据库中提取的目录树列
dtb.AddDef("ldTreeSort", Gettype(String),32) '加载目录树排序列
dtb.AddDef("loadorder", GetType(String), 8) '是否降序加载
dtb.AddDef("ldpagecol", Gettype(String),16) '加载分页依据列
dtb.AddDef("supplierCol", GetType(String), 16) '供应商识别列
dtb.AddDef("cyfwflt", GetType(String), 400) '查阅范围条件
dtb.AddDef("BUflt", GetType(String), 400) '事业部条件
MessageBox.Show(1)
dtb.AddDef("outflt", GetType(String), 800) 'where 条件
MessageBox.Show(2)
dtb.AddDef("ReferCols", GetType(String), 100) '引用关联表中的其他列(包括表名关联列)
MessageBox.Show(3)
dtb.AddDef("fltbyBU", GetType(Boolean)) '按事业部查看数据
MessageBox.Show(4)
dtb.Build()
MessageBox.Show(5)
End If
'--------------------------------生成{TabFid}临时表------------------------------
winN_dtb = DataTables("MoGroup").GetValues("WinName", "winlb <> 'Query' and xs = true") '集合所有非查询窗口名称
winN_qtb = DataTables("MoGroup").GetValues("WinName", "winlb = 'Query' and xs = true") '集合所有查询窗口名称
Tables("QtbSet").Cols("Key").Move(2) '将列移动到某位置
Tables("MoGroup").Cols("Key").Move(3) '将列移动到某位置
'设置一些全局变量的初始值
chk_Multi = False '多选开关
chk_Sum = False '显示合计
chk_ListMode = False '突出显示行
Vars("users") = 100 '设置允许使用的用户数量
Forms("导航").Open()
每一句都加MessageBox.Show,弹出4后就出现错误了,也就运行红色dtb.Build()时出错了,临时表生成会触发什么相关的事件?可能是其他关联地方出错了
出错那个提示LoaderException是什么的属性?
单独新建一个项目运行这些代码又不会出错,现在都不知道从哪里检查问题了,
加好友 
发短信
Post By：2022/7/4 8:51:00 [显示全部帖子]
此主题相关图片如下：运行错误.png
