| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 字符串合并 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67583) |
| -- 作者：asionwong -- 发布时间：2015/4/27 9:30:00 -- 字符串合并 要将订单明细表中“备注”列的字符串合并起来，请问该如何做？谢谢 |
| -- 作者：Bin -- 发布时间：2015/4/27 9:31:00 -- 所有行的 备注列合并起来? |
| -- 作者：asionwong -- 发布时间：2015/4/27 9:37:00 -- 是的 |
| -- 作者：asionwong -- 发布时间：2015/4/27 9:39:00 -- 条件就是对应的订单号与订单表的订单号相同 [此贴子已经被作者于2015/4/27 9:38:59编辑过]
|
| -- 作者：Bin -- 发布时间：2015/4/27 9:55:00 -- 不是很明白你的逻辑 |
| -- 作者：asionwong -- 发布时间：2015/4/27 10:18:00 -- 订单表中，订单号为A101的订单，对应订单明细表中有N条订单号为A101的订单明细行，要求将明细表中订单号为A101的订单明细行的“备注”列的字符串全部合并起来，谢谢！ |
| -- 作者：Bin -- 发布时间：2015/4/27 10:23:00 -- 在订单表的DataColChanged事件 \'你订单表也要有个备注列 Dim v AS string
if e.datacol.name="订单号" then for each dr as datarow in e.DataRow.GetChildRows
v = v & dr("备注")
next
end if
e.datarow("备注") = v
|
| -- 作者：狐狸爸爸 -- 发布时间：2015/4/27 10:33:00 -- 订单明细表也得写代码 DataRowDeleting事件： e.datarow("备注") = nothing datacolchanged事件： if e.datacol.name = "备注" then dim dr As datarow = e.DataRow.GetParentRow("订单") if dr snot nothing then datatables("订单").dataCols("订单号").RaiseDataColChanged(dr) end if end if [此贴子已经被作者于2015/4/27 10:33:04编辑过]
|