以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  将固定代码转为函数求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149126)

--  作者：有点蓝 --  发布时间：2020/4/24 8:38:00 --   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

--  作者：有点蓝 --  发布时间：2020/4/26 8:55:00 --   请上传实例测试

--  作者：有点蓝 --  发布时间：2020/4/27 17:27:00 --   怎么测试？