主题：缴费问题

 填充代码

 

DataTables("表B").DeleteFor("学号 is null")
For Each r As Row In Tables("表B").Rows
    Dim fdr As DataRow = DataTables("表A").Find("学号 = '" & r("学号") & "' and 可否毕业 Is not null")
    If fdr IsNot Nothing Then
        r("可否毕业") = fdr("可否毕业")
    End If
    r("实缴学费") = r("大一缴费") + r("大二缴费") + r("大三缴费")
    r("欠缴学费") = r("应缴学费") - r("实缴学费")
    If r("欠缴学费") <= 0 Then
        r("缴费状况") = "缴清学费"
    Else
        r("缴费状况") = "欠缴学费"
    End If
    If r("欠缴学费") <= 0 AndAlso r("可否毕业") = "予准毕业" Then
        r("可否发毕业证") = "准予发证"
    Else
        r("可否发毕业证") = "不予发证"
    End If
Next

Dim nr As Row = Tables("表B").AddNew
nr("姓名") = Tables("表B").Compute("count(_Identify)") - 1
nr("大一缴费") = Tables("表B").Compute("sum(大一缴费)")
nr("大二缴费") = Tables("表B").Compute("sum(大二缴费)")
nr("大三缴费") = Tables("表B").Compute("sum(大三缴费)")

 

 

 drawcell代码

 

If e.Col.Name = "可否毕业" AndAlso e.Text = "不予毕业" Then
    e.Table.DataTable.AddUserStyle("红", Color.Red, Color.black)
    e.Style = "红"
Else If e.Col.Name = "缴费状况" OrElse  e.Col.Name = "可否发毕业证"  Then
    e.Table.DataTable.AddUserStyle("黄", Color.Yellow, Color.black)
    If e.Row("欠缴学费") > 0 Then
        e.style = "黄"
    End If
    If e.Row(e.Col.Name) > "不予发证" Then
        e.style = "黄"
    End If
End If