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
加好友 
发短信
Post By：2009/11/9 15:15:00 [显示全部帖子]
