Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:帮看看这段代码错在哪?

1楼
mr725 发表于: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
2楼
狐狸爸爸 发表于:2009/11/9 14:51:00
这里偷不了懒的

因为是GetType(Doube),不是GetType("Double")
3楼
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
4楼
mr725 发表于:2009/11/9 15:55:00
图片点击可在新窗口打开查看   偷懒~  好没道理的。   图片点击可在新窗口打开查看
5楼
mr725 发表于: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

谢谢~    只是列数多了且类型也交叉,就和一列列的单个增加一样了,嗨, 狐爸不让咱们‘偷懒’啊~   呵呵。

共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.