| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]填充 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=22712) |
| -- 作者：13636600695 -- 发布时间：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 我中间有一列留空上述代码出错 |
| -- 作者：czy -- 发布时间：2012/8/21 22:15:00 -- 跟留空一点关系都没有，直接改成下面这样就行 dr("产品") = Vals(i)(0) |