Dim Book As NewXLS.Book("c:\test\123.xlsx") Dim Sheet As XLS.Sheet = Book.Sheets(0) FornAsInteger = 1ToSheet.Rows.Count -1 DimbhAsString = sheet(n,0).Text DimdrAsDataRow = DataTables("表A").Find("身份证 = '" &bh& "'") If dr Isnot Nothing Then '如果不存在同编号的订单 dr("逻辑列") = true End If Next