父表与子表同步加载
要完成这样的任务很简单,只需在订单表的AfterLoad事件中加入以下代码即可:
If DataTables("订单").DataRows.Count = 0 Then '如果订单表没有数据
DataTables("订单明细").LoadFilter = "订单ID Is Null"
'不加载订单明细
Else
Dim ids As String
For Each dr As DataRow In DataTables("订单").DataRows
ids = ids
&
","
&
dr("订单ID")
Next
ids= ids.Trim(",")
DataTables("订单明细").LoadFilter = "订单ID In ("
&
ids
&
")"
End If
DataTables("订单明细").Load()
当主表可能有多个关联列时,并且关联列的数据类型可能不一样。此时想用数组来累加生成加载条件,但下面红色部分不知怎么写?
Dim Recols As String = “订单ID,产品编号”
For Each dr In DataTables(e.DataTable.name).DataRows
dim rec() as string = Recols.split(",")
For i As Integer = 0 To
rec().Length - 1
ids = ids & ",'" & dr(Rcol) & "'" ‘这里应该是多维数组累计,或者可以用两个集合吗?
Next
Next
谢谢!