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

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

发票窗口    缴费金额 ={缴费标准}.缴费金额 + {课本费标准}.缴费金额 - {学生奖励].奖励金额

比如：高敏的2016秋季  缴费金额 ={缴费标准}.缴费金额 + {课本费标准}.缴费金额 - {学生奖励].奖励金额，学生奖励金额是 2016年春的，上学期奖励金额抵下学期学费。

高敏的2016秋季学费   缴费金额 = 3000+125-500=2650

 Dim cmd As New SQLCommand
Dim cmd1 As New SQLCommand
Dim dt As DataTable
Dim dt1 As DataTable
cmd.C
cmd1.C
    cmd.CommandText ="Sel ect  b.学期,班级,iif([缴费金额] Is Null ,0,缴费金额) + iif([课本金额] Is Null ,0,课本金额) As 缴费金额 From {缴费标准} a Inner JOIN {课本费标准} b ON a.学期 = b.学期 WHERE 缴费项目 = \'学费\'"
    dt = cmd.ExecuteReader()
    cmd1.CommandText ="Sel ect 学期,学生姓名,iif([奖励金额] Is Null ,0,奖励金额) As 奖励金额 From {学生奖励}"
    dt1 = cmd1.ExecuteReader()
    Dim dr As DataRow = dt.find("学期 = \'2016年秋季\' And 班级 = \'"& e.Form.Controls("班级").text & "\'")
    Dim dr1 As DataRow = dt1.find("学期 = \'2016年春季\' And 学生姓名 = \'"& e.Form.Controls("学生姓名").text & "\'")
    If dr1 IsNot Nothing Then
        e.Form.Controls("缴费金额").Text = dr("缴费金额")-dr1("奖励金额") ‘ 这里减不了
    Else
        e.Form.Controls(“缴费金额").Text = dr("缴费金额")
    End If
End If

这样对吗？请师傅指教，谢谢