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编辑过]