如下代码：现在我只想更新面试顺序的内容，其他列内容不变，如何写代码呢，现在的代码必须全部更新，谢谢
代码：
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("数据表").StopRedraw()
Dim nms() As String = {"身份证号""面试顺序"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("数据表").Find("身份证号 = '" & bh & "'")
If dr Is Nothing Then '如果不存在同编号的订单
dr = DataTables("数据表").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("数据表").ResumeRedraw()
End If
图：数据表：
此主题相关图片如下：截图02.jpg
加好友 
发短信
Post By：2017/12/4 13:22:00 [显示全部帖子]
