主题：for问题

Dim r6 As Row = Tables("..._Table6").Current
                For dr As DataRow = DataTables("..._Table1").DataRows
                    Dim dr5 As DataRow = DataTables("..._Table5").Find("cgid=" & dr("id"))
                    If dr5 IsNot Nothing Then
                        dr5("凭证号") = r6("凭证单据号")
                        dr5("付款确认") = True
                    Else
                        MessageBox.Show("请先申请付款!")
                    End If                    
                Next

问题描述: 批量付款窗口为独立窗口,需要给Table1的订单进行批量付款,

              并且table6当前行的凭证单据号为付款的凭证号(Table5)

              在填充了Table5的凭证号之后,会扣减Table5中当前行的剩余金额(这个已实现,我现在只需要批量填充凭证单号)

              

此主题相关图片如下：1.png


此主题相关图片如下：2.png