这样的写法:
Dim ids As StringFor Each dr As DataRow In DataTables("订单").DataRows ids = ids & "," & dr("订单ID")Nextids= ids.Trim(",")DataTables("订单明细").LoadFilter = "订单ID In (" & ids & ")"DataTables("订单明细").Load()
等效于:
DataTables("订单明细").LoadFilter = ""DataTables("订单明细").Load()
遍历所有行意义何在?