Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮看看这段代码错在哪？


  共有13911人关注过本帖树形打印复制链接

主题：帮看看这段代码错在哪？
帅哥哟，离线，有人找我吗？
mr725
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		天问者工作室作品 之 服装贸易管理系统  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/11/9 14:51:00 [只看该作者]

这里偷不了懒的

因为是GetType(Doube)，不是GetType("Double")

 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2009/11/9 15:55:00 [只看该作者]

图片点击可在新窗口打开查看   偷懒～  好没道理的。   图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：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

谢谢～    只是列数多了且类型也交叉，就和一列列的单个增加一样了，嗨， 狐爸不让咱们‘偷懒’啊～   呵呵。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询