以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码创建临时表，窗体自动关闭  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65546)
--  作者：magangzmc
--  发布时间：2015/3/18 10:53:00
--  代码创建临时表，窗体自动关闭

我代码写在窗体按钮单击事件中，预览窗体，点击按钮，

第一次没有问题，临时表创建成功

第二次窗体就直接关闭

 

 

代码如下：

If DataTables.Contains("订单组合") Then
    DataTables.Unload("订单组合")
End If
Dim dtb As New DataTableBuilder("订单组合")
dtb.AddDef("大膜卷", Gettype(String), 32)
dtb.AddDef("层级", Gettype(Integer))
dtb.AddDef("总宽度", Gettype(Integer))
dtb.Build()
--  作者：有点甜
--  发布时间：2015/3/18 10:54:00
--  

临时表不需要卸载，直接写

 

Dim dtb As New DataTableBuilder("订单组合")
dtb.AddDef("大膜卷", Gettype(String), 32)
dtb.AddDef("层级", Gettype(Integer))
dtb.AddDef("总宽度", Gettype(Integer))
dtb.Build()
--  作者：Bin
--  发布时间：2015/3/18 10:56:00
--  
这代码似乎和窗口关闭没什么关系啊.上例子看看