- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53226)
-- 发布时间：2014/7/2 19:01:00
-- [求助]
求高手写代码，能实现后三列的数字自动填入
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2014/7/2 19:08:00
--
什么意思？根据什么逻辑自动填入？
-- 发布时间：2014/7/2 19:38:00
--
把一个初诊复诊循环统计出来数值，按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
-- 发布时间：2014/7/2 19:39:00
--
把一个初诊复诊循环统计出来数值，按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
-- 发布时间：2014/7/2 19:41:00
--
前两个发错了，把一个初诊复诊循环统计出来数值，按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
-- 发布时间：2014/7/2 20:34:00
--
有点绕，代码如下
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
-- 发布时间：2014/7/2 21:28:00
--
高人，多谢了，