以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]先过滤符合条件值,再去重复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126491)

--  作者:工匠
--  发布时间:2018/10/22 18:20:00
--  [求助]先过滤符合条件值,再去重复制
老师好,现在有个需求,请教老师:从来源表,先判断“是否送货”为“false”的值行后,再根据产品/客户进行去重后,将去重后的值行复制到接收表,谢谢!
(来源表,“是否送货”为“true”的值行,不进行去重复制)
请帮加个判断,谢谢!

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For 
i As Integer = 0 To Vals.Count - 1
    Dim 
dr As DataRow = DataTables("接收表").AddNew()
    dr(
"产品") = Vals(i)(0)
    dr(
"客户") = Vals(i)(1)
Next
[此贴子已经被作者于2018/10/22 18:23:49编辑过]

--  作者:有点甜
--  发布时间:2018/10/22 18:24:00
--  

 

Vals = DataTables("来源表").GetValues("产品|客户", "是否送货=false or 是否送货 is null")

 


--  作者:工匠
--  发布时间:2018/10/22 19:19:00
--  
非常谢谢有点甜老师,可以实现了。还有个问题:就是在表进度排查的时候,通过一键将“是否完成”为“false”的排查出来了,现在假如需要一键将“是否完成”为“false”的所有赋值为“true”,(原来是选中列重复填充实现的)请帮看看,如何通过代码实现,谢谢
Tables("进度检查表").filter = "是否完成 = false"

--  作者:有点蓝
--  发布时间:2018/10/22 20:16:00
--  
DataTables("进度检查表").ReplaceFor("是否完成",True,"是否完成 = false")
--  作者:工匠
--  发布时间:2018/10/22 21:19:00
--  
谢谢有点蓝老师,可以了,非常感谢