If dlg.ShowDialog =DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(args(0)) '来源表--"片区学生原始花名"
Tables(args(1)).StopRedraw() '接收表--"报教研室学生名".
Dim nms() As String = args(2) 'excel列名称,与列位置相对应
Dim lwz() As integer = args(3) '列位置,与列名称相对应
For n As Integer = 1 To Sheet.Rows.Count -1 '起始行
Dim jch As String = sheet(n,args(4)).Text '主键名检测号
Dim dr As DataRow = DataTables(args(1)).Find(args(5) & " = '" & jch & "'")
If dr IsNot Nothing Then '如果不存在同编号的订单
For m As Integer = 0 To nms.Length - 1 '列名称
dr(nms(m)) = Sheet(n,lwz(m)).Value '列位置
Next
End If
Next
Tables(args(1)).ResumeRedraw()
End If
加好友 
发短信
Post By：2020/4/24 8:38:00 [显示全部帖子]
