Dim r6 As Row = Tables("..._Table6").Current For Each dr As DataRow In DataTables("..._Table1").DataRows Dim dr5 As DataRow = DataTables("..._Table5").Find("cgid=" & dr("id")) If dr5 Is Nothing Then msgbox("没找到") Else msgbox(dr("id") & " 和 " & dr5("cgid")) If dr5 IsNot Nothing Then dr5("凭证号") = r6("凭证单据号") dr5("付款确认") = True End If End If Next