想在学号列变化的时候,在收费列自动汇总出该学号所缴纳的学费之和。
文件见附件。
数据库结构。表:Xstudent
Sid StudentName
201300001 朱世勇
201300002 张利
表:XTaskWorkMX
DOMoney Sid
2000 201300001
800 201300002
1800 201300001
1000 201300002
详见附件!
这个是根据自带的学习文件,做出的,输入学号,自动从数据库找出姓名。
If e.DataCol.Name = "学号" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.C
cmd.CommandText = "SELECT * From {Xstudent} Where [Sid] = '" & dr("学号") & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr("姓名") = dt.DataRows(0)("StudentName")
Else
dr("姓名") = Nothing
End If
End If