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