这里偷不了懒的
因为是GetType(Doube),不是GetType("Double")
以下是引用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
谢谢~ 只是列数多了且类型也交叉,就和一列列的单个增加一样了,嗨, 狐爸不让咱们‘偷懒’啊~ 呵呵。