主题：付款方式逐行写入的问题

多对多的设计，要用第三个表处理。

也就是再多加一个子表，把付款方式的多字段列改成明细表。

这样，直接统计明细表，即可得到答案。

循环每一行订单，把收款的金额减去应付的金额，如果是正数，继续下一行；如果是负数，再取收款表的下一行，继续循环。

代码自己写。类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122869&skin=0

无语。

循环每一行订单，把收款的金额减去应付的金额，如果是正数，记录付款方式、金额，继续下一行；如果是负数，记录付款方式、金额，再取收款表的下一行，继续循环。

一模一样，请认认真真看。

要整体计算啊，完整看完之前的实例啊。在理解代码理解思路的前提下写代码啊。

Dim dd As String = "A"
Dim drs1 As List(Of DataRow) = DataTables("收款").Select("订单号='" & dd & "'", "_Identify")
Dim drs2 = DataTables("订单").Select("订单号='" & dd & "'", "_Identify")
Dim i As Integer = 0
Dim fk As Double = drs1(i)("付款金额")
Dim yf As Double = 0
Dim fkfss As String = ""
Dim fkjes As String = ""
Dim flag As Boolean = False
For j As Integer = 0 To drs2.count-1
    Dim dr As DataRow = drs2(j)
    If flag = False Then
        yf = dr("应付金额")
    End If
    If fk >= yf Then
        fk = fk - yf
        fkfss &= drs1(i)("付款方式") & ","
        fkjes &= yf & ","
        dr("付款方式") = fkfss.trim(",")
        dr("付款金额") = fkjes.trim(",")
        flag = False
        fkfss = ""
        fkjes = ""
    Else
        fkfss &= drs1(i)("付款方式") & ","
        fkjes &= fk & ","
        yf = yf - fk
        i += 1
        fk = drs1(i)("付款金额")
        j -= 1
        flag = True
    End If
Next

1、j -= 1 因为每次for循环 j 都会加1，为了下次循环，j的值不变。

2、当付款记录是最后一行的时候，也就没有可以抵扣的金额了，如果不够，也没办法了。