If e.DataCol.Name = "是否发放资助" AndAlso e.DataRow("是否发放资助") = "是" Then
Dim nma() As String = {"学生姓名","学籍号","性别","身份证号码","发放金额","是否寄宿生","户籍性质","中小学","年级","班级","资助依据"} 'A表数据来源列
Dim nmb() As String = {"姓名","学籍号","性别","身份证号码","发放金额","寄宿情况","户口性质","中小学","年级","班级","信息来源类型" } 'B表数据接收列
Dim dr As Row = Tables("学生资助").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
MainTable = Tables("学生资助")
End If
加好友 
发短信
Post By：2021/3/10 9:10:00 [显示全部帖子]
