Dim Cols1() As String = {"考生号","学号","姓名","专业","年级","班级","性别","身份证","籍贯","联系电话","入学时间","注册情况","是否毕业","备注"}
Dim Cols2() As String = {"考生号","学号","姓名","专业","年级","班级","性别","身份证","籍贯","联系电话","入学时间","注册情况","是否毕业","备注"}
Dim t As Table = Tables("学年收费名单")
Dim newcount As Integer = 0
Dim oldcount As Integer = 0
For Each dr1 As DataRow In DataTables("学生信息表").DataRows
If dr1("是否毕业")="否" And dr1("注册情况")="是" Then
Dim r As DataRow = t.DataTable.Find("学号= '" & dr1("考生号")& "' And 学年= '" & Tables("基本设置").Text(0,0) & "'")
If r Is Nothing Then
For i As Integer = 0 To Cols1.Length -1
r(Cols2(i)) = dr1(Cols1(i))
r("添加时间")=Today.Date()
oldcount += 1
Next
Else
Dim dr2 As DataRow = DataTables("学年收费名单").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
dr2("添加时间")=Today.Date()
newcount += 1
Next
End If
End If
Next
MsgBox("已成功生成缴费名单,新增" & newcount & " " & "更新旧数据" & oldcount)