订单主表->datacolchanged事件
if e.datacol.name = "摘要" then
dim str as string = ""
for each dr as datarow in e.datarow.GetChildRows("订单明细表")
str += dr("产品名称") & ","
next
e.datarow("摘要") = str.trim(",")
next
订单明细表->datacolchanged
if e.datacol.name = "产品名称" then
DataTables("订单表").DataCols("摘要").RaiseDataColChanged("订单号 = '" & e.DataRow("订单号") & "'")
end if
[此贴子已经被作者于2014-2-27 19:12:51编辑过]