老师，我的代码如下，“已开通业务”是多值字段，包含若干选项，其中有一项是“网上银行”，我的数据源“wsyh.xls"内容如”
| 6611710000060716 |
网上银行 |
| 6611710007886848 |
网上银行 |
我希望达到，将“网上银行”选项勾选，不影响“已开通业务”多值字段其他选项的勾选。同时，Tables("对公客户明细")中没有相同“客户号”的记录不增加。谢谢老师！
If msgbox("网银数据导入可以更新已开通业务,是否进行导入?",65,"提示") = 1 Then
Dim Book As New XLS.Book("D:\khdaxt\drgx\wsyh.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("对公客户明细").StopRedraw()
Dim nms() As String = {"客户号","已开通业务"}
For n As Integer = 0 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("对公客户明细").Find("客户号 = '" & bh & "'")
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = trim(Sheet(n,m).Value)
Next
Next
Tables("对公客户明细").ResumeRedraw()
msgbox("网银数据导入完毕!",64,"提示")
End If
加好友 
发短信
Post By：2016/4/6 20:17:00 [只看该作者]
