父表与子表同步加载,如何用like Post By:2013/11/29 17:01:00 [只看该作者]
上面的代码假定订单ID是整数型,如果订单ID是字符型,那么代码应该改为:
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()