Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]填充


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

主题：[求助]填充
帅哥哟，离线，有人找我吗？
13636600695
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：102 积分：912 威望：0 精华：0 注册：2012/5/20 6:57:00 		[求助]填充  发帖心情 Post By：2012/8/21 21:48:00 [显示全部帖子]

如果要排除重复值，可以用GetUniqueValue获得不重复的值，然后再填充：

 

Dim Vals As List(of String())
Vals = DataTables("来源表").GetUniqueValues("","产品","客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(3)
Next

我中间有一列留空上述代码出错
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询