下面的代码有问题:
For Each Customer As String In Customers
dr = DataTables("业务总账").Find("业务编号='" & Customer & "'")
If dr IsNot Nothing Then
Book.Marks.Add("经营单位",dr("经营单位"))
Book.Marks.Add("业务编号",dr("业务编号"))
Book.Marks.Add("提单号",dr("提单号"))
Book.Marks.Add("报关单号",dr("报关单号"))
End If
Next
要么不错,即使不出错,标记也只是最后一个业务编号的内容。
应该结合事件使用,可以看看这里的示例一: