- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮看看这段代码错在哪？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4924)
-- 发布时间：2009/11/9 13:46:00
-- 天问者工作室作品 之 服装贸易管理系统
dim s,a as string
s="|列1|列2|列3"
a="|string|string|double"
With dataTables("表A")
For ii as integer = 1 to s.split("|").length-1
.DataCols.Add(s.split("|")(ii),GetType(a.split("|")(ii))) \'去掉有颜色的这节后就可以！
Next
End With
-- 发布时间：2009/11/9 14:51:00
--
这里偷不了懒的
因为是GetType(Doube)，不是GetType("Double")
-- 发布时间：2009/11/9 15:15:00
--
dim s,a as string
s="|A|B|C"
a="|string|string|double"
With dataTables("表A")
For ii as integer = 1 to s.split("|").length-1
Select Case a.split("|")(ii)
Case "string"
.DataCols.Add(s.split("|")(ii),GetType(String))
Case "整数"
.DataCols.Add(s.split("|")(ii),GetType(Integer))
Case "双精度小数"
.DataCols.Add(s.split("|")(ii),GetType(double))
End Select
Next
End With
-- 发布时间：2009/11/9 15:55:00
--
偷懒～ 好没道理的。 
-- 发布时间：2009/11/9 19:03:00
--
以下是引用yangming在2009-11-9 15:15:00的发言：
dim s,a as string
s="|A|B|C"
a="|string|string|double"
With dataTables("表A")
For ii as integer = 1 to s.split("|").length-1
Select Case a.split("|")(ii)
Case "string"
.DataCols.Add(s.split("|")(ii),GetType(String))
Case "整数"
.DataCols.Add(s.split("|")(ii),GetType(Integer))
Case "双精度小数"
.DataCols.Add(s.split("|")(ii),GetType(double))
End Select
Next
End With
dim s,a as string
s="|A|B|C"
a="|string|string|double"
With dataTables("表A")
For ii as integer = 1 to s.split("|").length-1
Select Case a.split("|")(ii)
Case "string"
.DataCols.Add(s.split("|")(ii),GetType(String))
Case "整数"
.DataCols.Add(s.split("|")(ii),GetType(Integer))
Case "双精度小数"
.DataCols.Add(s.split("|")(ii),GetType(double))
End Select
Next
End With
谢谢～ 只是列数多了且类型也交叉，就和一列列的单个增加一样了，嗨， 狐爸不让咱们‘偷懒’啊～ 呵呵。