主题：[求助]

求高手写代码，能实现后三列的数字自动填入

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 什么意思？根据什么逻辑自动填入？

把一个初诊复诊循环统计出来数值，按A段200、B段200、C段剩余的数值这三个列填入，比如一个初诊复诊循环（A）的初诊统计数为500，就分填入三个列中，200 200 100，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为300，则要此行中C段中，此行中更多的复诊行的统计列的值则全部填入C段中。比如一个初诊复诊循环（B）的初诊统计数为100，就填入三个列中，100 200 100，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为300，则要此行中A段中，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为400，则在A段中参考初诊A段差额填入100，余数填入B200  C100

把一个初诊复诊循环统计出来数值，按A段200、B段200、C段剩余的数值这三个列填入，比如一个初诊复诊循环（A）的初诊统计数为500，就分填入三个列中，200 200 100，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为300，则全填入此行C段中，此行中更多的复诊行的统计列的值则全部填入C段中。比如一个初诊复诊循环（B）的初诊统计数为100，就填入三个列中，100 200 100，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为300，则要此行中A段中，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为400，则在A段中参考初诊A段差额填入100，余数填入B200  C100

前两个发错了，把一个初诊复诊循环统计出来数值，按A段200、B段200、C段剩余的数值这三个列填入，比如一个初诊复诊循环（A）的初诊统计数为500，就分填入三个列中，200 200 100，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为300，则全填入此行C段中，此行中更多的复诊行的统计列的值则全部填入C段中。比如一个初诊复诊循环（B）的初诊统计数为100，就填入A段中，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为300，则要此行中A段中，如果是此初诊复诊循环(A)中的第一次复诊行的统计数值为400，则在A段中参考初诊A段差额填入100，余数填入B200  C100

有点绕，代码如下

 

If e.DataCol.Name="收费" Then
    Dim Dr As DataRow
    If e.DataRow("初诊复诊")="初诊" Then
        e.DataRow("统计") = e.DataRow("收费")
        If e.DataRow("统计") <= 200 Then
            e.DataRow("A") = e.DataRow("统计")
            e.DataRow("B") = Nothing
            e.DataRow("C") = Nothing
        Else If e.DataRow("统计") <= 400 Then
            e.DataRow("A") = 200
            e.DataRow("B") = e.DataRow("统计") - 200
            e.DataRow("C") = Nothing
        Else
            e.DataRow("A") = 200
            e.DataRow("B") = 200
            e.DataRow("C") = e.DataRow("统计") - 400
        End If
    Else
        dr=DataTables("表A").Find("编号 < '" & e.DataRow("编号") & "'And 姓名='" & e.DataRow("姓名") & "'","就诊日期 desc")
        If dr IsNot Nothing Then
            If dr("初诊复诊")="初诊" Then
                e.DataRow("统计")=e.DataRow("收费")+dr("收费")
                e.DataRow("B") = Nothing
                e.DataRow("C") = Nothing
            Else
                e.DataRow("统计")=e.DataRow("收费")+dr("统计")
            End If
            If e.DataRow("统计") <= 200 Then
                e.DataRow("A") = e.DataRow("收费")
                e.DataRow("B") = Nothing
                e.DataRow("C") = Nothing
            Else If e.DataRow("统计") <= 400 Then
                e.DataRow("A") = iif(dr("统计") >= 200, Nothing, 200 - dr("统计"))
                e.DataRow("B") = e.DataRow("统计") - 200
                e.DataRow("C") = Nothing
            Else
                e.DataRow("A") = iif(dr("统计") >= 200, Nothing, 200 - dr("统计"))
                e.DataRow("B") = iif(dr("统计") < 200, 200, iif(dr("统计") >  400, Nothing, 400 - dr("统计")))
                e.DataRow("C") =  iif(dr("统计") >= 400, e.DataRow("统计") - dr("统计"), e.DataRow("统计") - 400)
            End If
        End If
    End If
End If

高人，多谢了，