- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 大师请教临时表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99603)
-- 发布时间：2017/4/22 10:22:00
-- 大师请教临时表
大师：临时表生成器创建表，
1、要不要判断是否存在？为何不加判断就报错？
2、如果创建错误，想重新创建，如何删除？卸载后创建同样报错？
-- 发布时间：2017/4/22 10:36:00
--
怎么创建的临时表？代码看看
-- 发布时间：2017/4/22 10:55:00
--
if datatables.contains("listBqybdb") = false then
Dim dtb As New DataTableBuilder("listBqybdb")
dtb.AddDef("Bqybdb1", Gettype(String),150,"","项目")
Dim kmjh As new List(of String)
kmjh = dt.GetValues("zzzz5","zzzz5 is not null","_sortkey")
Dim n1 As Integer = 1
For Each v As String In kmjh
n1 = n1 + 1
dtb.AddDef("Bqybdb" & cstr(n1) ,Gettype(Double),"",v)
Next
dtb.Build()
else
datatables.unload("listBqybdb")
Dim dtb As New DataTableBuilder("listBqybdb")
dtb.AddDef("Bqybdb1", Gettype(String),150,"","项目")
Dim kmjh As new List(of String)
kmjh = dt.GetValues("zzzz5","zzzz5 is not null","_sortkey")
Dim n1 As Integer = 1
For Each v As String In kmjh
n1 = n1 + 1
dtb.AddDef("Bqybdb" & cstr(n1) ,Gettype(Double),"",v)
Next
dtb.Build()
end if
如果我加上红色部分判断代码，运行后就会报错？
-- 发布时间：2017/4/22 11:12:00
--
这个意思，不同的数据源中有一个同名的表，切换数据源后，要重新创建同名但结构不一样的临时表，因为要调用很多指定同名表的通用函数，我想删除临时表后重新创建行不行？否知就要改动函数。
-- 发布时间：2017/4/22 11:58:00
--
DataTableBuilder这种用法不需要判断和卸载，直接生成就会覆盖之前的。
下面代码测试也没有问题
If DataTables.contains("listBqybdb") = False Then
Dim dtb As New DataTableBuilder("listBqybdb")
dtb.AddDef("Bqybdb1", Gettype(String),150,"","项目")
dtb.Build()
Else
DataTables.unload("listBqybdb")
Dim dtb As New DataTableBuilder("listBqybdb")
dtb.AddDef("Bqybdb122", Gettype(String),150,"","项目2")
dtb.Build()
End If
错误提示什么？
可能是循环里增加的列数超出范围了，理论最多250个列
[此贴子已经被作者于2017/4/22 14:20:41编辑过]
-- 发布时间：2017/4/22 12:36:00
--
我通过DataSource属性动态绑定到页面控件的一个页面的表中，一选择该页面就报错，显示“未将对象引用设置到对象的实例。”
-- 发布时间：2017/4/22 12:40:00
--
If DataTables.contains("listBqybdb") = False Then
Dim dtb As New DataTableBuilder("listBqybdb")
dtb.AddDef("Bqybdb1", Gettype(String),150,"","项目")
dtb.Build()
Else
DataTables.unload("listBqybdb")
Dim dtb As New DataTableBuilder("listBqybdb")
dtb.AddDef("Bqybdb122", Gettype(String),150,"","项目2")
dtb.Build()
End If
Dim tb1 As WinForm.Table = e.Form.Controls("Table14")
tb1.Table.AllowEdit = True
tb1.Table.DataSource = DataTables("listBqybdb") \'---绑定临时表
Dim tab3 As WinForm.TabControl = e.Form.Controls("TabControl3")
tab3.TabPages("page6").Visible = True
tab3.SelectedPage = tab3.TabPages("page6")
这行红色部分代码就出错。显示“未将对象引用设置到对象的实例。”
-- 发布时间：2017/4/22 14:20:00
--
代码测试没有问题
tab3.TabPages("page6")是通过名称访问的
此主题相关图片如下：1.jpg
-- 发布时间：2017/4/22 16:12:00
--
经验呀，因为页签多了，原来用顺序号，改为名称后，有的忘记改了。看来真不能随意改动呀。有何经验分享一下！！
-- 发布时间：2017/4/22 16:18:00
--
感觉写程序比什么工作都难，您就是考博士，也有点伸缩性，70-80分就行了。写代码连一个小符号都不能错。就没有模糊大差不差的写法？
我感觉程序员干什么都会牛B的很。炒股，赌，泡妞，学霸样样精通！！！