缴费问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

麻烦 甜老师帮忙解决罗，谢谢了！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:缴费问题.rar

datacolchanged 代码

Dim fdr As DataRow = e.DataTable.Find("学号 = '合计'")
If fdr Is Nothing Then
fdr = e.DataTable.AddNew
fdr("学号") = "合计"
End If

If e.DataRow("学号") = "合计" Then
Return
End If

Select Case e.DataCol.Name
    Case "学号"
        Dim dr As DataRow = DataTables("表A").Find("学号 = '" & e.DataRow("学号") & "' and 可否毕业 Is not null")
        If dr IsNot Nothing Then
            e.DataRow("可否毕业") = dr("可否毕业")
            e.DataRow("姓名") = dr("姓名")
        End If
    Case "大一缴费", "大二缴费", "大三缴费"
        e.DataRow("实缴学费") = e.DataRow("大一缴费") + e.DataRow("大二缴费") + e.DataRow("大三缴费")
        e.DataRow("欠缴学费") = e.DataRow("应缴学费") - e.DataRow("实缴学费")
        If e.DataRow("欠缴学费") <= 0 Then
            e.DataRow("缴费状况") = "缴清学费"
        Else
            e.DataRow("缴费状况") = "欠缴学费"
        End If
        If e.DataRow("欠缴学费") <= 0 AndAlso e.DataRow("可否毕业") = "予准毕业" Then
            e.DataRow("可否发毕业证") = "准予发证"
        Else
            e.DataRow("可否发毕业证") = "不予发证"
        End If
        fdr("大一缴费") = Tables("表B").Compute("sum(大一缴费)")
        fdr("大二缴费") = Tables("表B").Compute("sum(大二缴费)")
        fdr("大三缴费") = Tables("表B").Compute("sum(大三缴费)")
End Select

fdr("姓名") = Tables("表B").Compute("count(_Identify)") - 1

[此贴子已经被作者于2014-4-4 16:54:14编辑过]

lsy老师好！

“实缴学费”和合计计算这二个功能效果很好，但是“欠缴学费” 、“缴费状况” 、“可否毕业” 、“可否发毕业证” 这四项没有反应。请帮忙再测试一下，谢了！

甜老师好！

“应缴学费” 、“实缴学费” 、“欠缴学费” 也应该计算合计值。 “可否毕业” 中的‘准予毕业’ 和 ‘不予毕业’没有从表A复制到表B ，“可否发毕业证”列均显示‘不予发证’ ，请甜老师再测试一下，谢了！

没仔细看代码吧，一行一行录入，肯定没问题，如果已有数据，重置列，有三组：

一、学号

二、"大一缴费","大二缴费","大三缴费"
三、"应缴学费"

简单修改一下

Dim fdr As DataRow = e.DataTable.Find("学号 = '合计'")
If fdr Is Nothing Then
fdr = e.DataTable.AddNew
fdr("学号") = "合计"
End If

If e.DataRow("学号") = "合计" Then
Return
End If

Select Case e.DataCol.Name
    Case "学号","大一缴费", "大二缴费", "大三缴费"
        Dim dr As DataRow = DataTables("表A").Find("学号 = '" & e.DataRow("学号") & "' and 可否毕业 Is not null")
        If dr IsNot Nothing Then
            e.DataRow("可否毕业") = dr("可否毕业")
            e.DataRow("姓名") = dr("姓名")
        End If
        e.DataRow("实缴学费") = e.DataRow("大一缴费") + e.DataRow("大二缴费") + e.DataRow("大三缴费")
        e.DataRow("欠缴学费") = e.DataRow("应缴学费") - e.DataRow("实缴学费")
        If e.DataRow("欠缴学费") <= 0 Then
            e.DataRow("缴费状况") = "缴清学费"
        Else
            e.DataRow("缴费状况") = "欠缴学费"
        End If
        If e.DataRow("欠缴学费") <= 0 AndAlso e.DataRow("可否毕业") = "予准毕业" Then
            e.DataRow("可否发毕业证") = "准予发证"
        Else
            e.DataRow("可否发毕业证") = "不予发证"
        End If
        fdr("大一缴费") = Tables("表B").Compute("sum(大一缴费)")
        fdr("大二缴费") = Tables("表B").Compute("sum(大二缴费)")
        fdr("大三缴费") = Tables("表B").Compute("sum(大三缴费)")
        fdr("应缴学费") = Tables("表B").Compute("sum(应缴学费)")
        fdr("实缴学费") = Tables("表B").Compute("sum(实缴学费)")
        fdr("欠缴学费") = Tables("表B").Compute("sum(欠缴学费)")
End Select

fdr("姓名") = Tables("表B").Compute("count(_Identify)") - 1

因为这三组数据，都是要人工录入的，不是自动生成的。

给你发个全自动的吧。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:缴费问题.rar

加一个删除合计的功能：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:缴费问题.rar

主题：缴费问题