以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 带出上相应客服  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187884)
--  作者：sanny
--  发布时间：2023/8/17 21:22:00
--  [求助] 带出上相应客服
请问，如何带出相应的客服，从表B中带到表A中。谢谢。


表A 表B
Item 客服 Item 客服
A KK,BB,CC A KK
B BB,CC A KK
A BB
A CC
A KK
B BB
B CC
--  作者：有点蓝
--  发布时间：2023/8/17 21:25:00
--  
参考：http://www.foxtable.com/webhelp/topics/1451.htm

把Find改为使用GetComboListString取数据即可
--  作者：sanny
--  发布时间：2023/8/18 8:14:00
--  
老师
[此贴子已经被作者于2023/8/18 16:47:35编辑过]
--  作者：有点蓝
--  发布时间：2023/8/18 8:43:00
--  
getvalues+GetComboListString即可

for each s as string in datatables("b").getvalues("Item")
   dim s2 as string = datatables("b").GetComboListString("客服","Item=‘" & s & "’")
--  作者：sanny
--  发布时间：2023/8/18 11:58:00
--  
老师，给指正一下，谢谢。

For Each s As String In DataTables("a").getvalues("Item")
   Dim s2 As String = DataTables("b").GetComboListString("客服","Item=\'" & s & "\'")

s("客服") = s2
Next
--  作者：有点蓝
--  发布时间：2023/8/18 14:08:00
--  
很基础的功能哦

For Each s As String In DataTables("b").getvalues("Item")
dim r as row = Tables("a").addnew
r("Item") = s
   Dim s2 As String = DataTables("b").GetComboListString("客服","Item=\'" & s & "\'")

r("客服") = s2
Next
--  作者：sanny
--  发布时间：2023/8/18 14:10:00
--  
老师，

谢谢，不过 表a 中的 item 已经存在，不要单独再增加，改如何
--  作者：有点蓝
--  发布时间：2023/8/18 14:12:00
--  
更简单了
For Each r As row In Tables("a").rows
   Dim s2 As String = DataTables("b").GetComboListString("客服","Item=\'" & r("item") & "\'")

s("客服") = s2
Next
--  作者：sanny
--  发布时间：2023/8/18 16:30:00
--  
谢谢， BB|CC|d  这中的 | 怎么改成 逗号 ？
--  作者：有点蓝
--  发布时间：2023/8/18 16:33:00
--  
http://www.foxtable.com/webhelp/topics/0241.htm