[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 & "'")
        If dr Is Nothing Then
            dr = DataTables("对公客户明细").AddNew

        End If
        For m As Integer = 0 To nms.Length - 1
            dr(nms(m)) = trim(Sheet(n,m).Value)
        Next
        dr("已开通业务") = (dr("已开通业务") & "," & trim(Sheet(n,1).Value)).Trim(",")
    Next
    Tables("对公客户明细").ResumeRedraw()
    msgbox("网银数据导入完毕!",64,"提示")
End If

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 & "'")
        '        If dr Is Nothing Then
        '            dr = DataTables("对公客户明细").AddNew
        '        End If
        For m As Integer = 0 To nms.Length - 1
            dr(nms(m)) = trim(Sheet(n,m).Value)
        Next
        Dim s As String = trim(Sheet(n,1).Value)
        If dr("已开通业务").Contains(s) = False
            dr("已开通业务") = (dr("已开通业务") & "," & s).Trim(",")
        End If
    Next
    Tables("对公客户明细").ResumeRedraw()
    msgbox("网银数据导入完毕!",64,"提示")
End If

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 & "'")
        If dr IsNot Nothing Then

            For m As Integer = 0 To nms.Length - 1
                dr(nms(m)) = trim(Sheet(n,m).Value)
            Next
            Dim s As String = trim(Sheet(n,1).Value)
            If dr("已开通业务").Contains(s) = False
                dr("已开通业务") = (dr("已开通业务") & "," & s).Trim(",")
            End If
        End If
    Next
    Tables("对公客户明细").ResumeRedraw()
    msgbox("网银数据导入完毕!",64,"提示")
End If

主题：[求助]