以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]DataTableBuilder的显示怎么设置?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3479)

--  作者:听雪落的声音
--  发布时间:2009/7/8 11:39:00
--  [求助]DataTableBuilder的显示怎么设置?
DataTableBuilder 建立一个表,单位、姓名

在主界面中显示生成的表。

给个代码学习一下,最好弄个例子。
--  作者:狐狸爸爸
--  发布时间:2009/7/8 12:37:00
--  

Dim dtb As New DataTableBuilder("abc")
dtb.AddDef("产品", GetType(String), 32)
dtb.AddDef("客户", GetType(String), 32)
dtb.AddDef("数量", GetType(Integer))
dtb.AddDef("金额", GetType(Double))
dtb.Build()
MainTable
= Tables("abc")

[此贴子已经被作者于2009-7-8 12:37:53编辑过]

--  作者:听雪落的声音
--  发布时间:2009/7/8 12:43:00
--  
Dim dtb As New DataTableBuilder("拨付计划")
dtb.AddDef("单位代码", GetType(String), 32)
dtb.AddDef("所属系统", GetType(String), 32)
dtb.AddDef("上月人数", GetType(Integer))
dtb.AddDef("上月应发", GetType(Double))
dtb.AddDef("当月人数", GetType(Integer))
dtb.AddDef("当月应发", GetType(Double))
dtb.adddef("人数减", GetType(Integer))
dtb.adddef("人数增", GetType(Integer))
dtb.adddef("金额减", GetType(Double))
dtb.adddef("金额增", GetType(Double))
dtb.adddef("丧葬费", GetType(Double))
dtb.adddef("合计", GetType(Double))
dtb.Build()
MainTable= Tables("拨付计划")


看看我这代码对不对,咋建立不了表呢?
--  作者:yangming
--  发布时间:2009/7/8 13:16:00
--  
Dim dtb As New DataTableBuilder("拨付计划")
dtb.AddDef("单位代码", GetType(String), 32)
dtb.AddDef("所属系统", GetType(String), 32)
dtb.AddDef("上月人数", GetType(Integer))
dtb.AddDef("上月应发", GetType(Double))
dtb.AddDef("当月人数", GetType(Integer))
dtb.AddDef("当月应发", GetType(Double))
dtb.adddef("人数减", GetType(Integer))
dtb.adddef("人数增", GetType(Integer))
dtb.adddef("金额减", GetType(Double))
dtb.adddef("金额增", GetType(Double))
dtb.adddef("丧葬费", GetType(Double))
dtb.adddef("合计", GetType(Double))
dtb.TableVisible = True
dtb.Build()
MainTable= Tables("拨付计划")