- 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=30524)
-- 发布时间：2013/3/29 15:05:00
-- 获取子表某列的不重复数据
以下代码,获取到子表"手寸"列的不重复数据.并且以,号隔开;
目前无法实现我的要求.
Select Case e.DataCol.Name
Case "订单编号"
Dim s As String
s = DataTables("表B").GetComboListString("品名","[订单编号] = \'" & e.DataRow("订单编号") & "\'")
e.DataRow("品名") = s & ","
End Select
请看例子,我希望得到"品名"列中,所有以 \' , \' 号隔开的不重复的数据.
请老师帮忙 !先谢谢!
-- 发布时间：2013/3/29 15:45:00
--
暈了,替換也不會嗎?
-- 发布时间：2013/3/29 15:55:00
--
不知道是不是你没明白我的意思呢,还是你认为实在太简单了,呵呵,
-- 发布时间：2013/3/29 16:05:00
--
用ReplaceFor 把“|”替换成“，”
-- 发布时间：2013/3/29 16:19:00
--
Select Case e.DataCol.Name
Case "订单编号"
Dim s As String
s = DataTables("表B").GetComboListString("品名","[订单编号] = \'" & e.DataRow("订单编号") & "\'")
e.DataRow("品名") = s.replace("|",",")
End Select