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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有2302人关注过本帖树形打印复制链接主题：[求助]

yjd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1434 威望：0 精华：0 注册：2014/11/7 21:15:00

[求助]

Post By：2016/4/6 20:17:00 [只看该作者]

老师，我的代码如下，“已开通业务”是多值字段，包含若干选项，其中有一项是“网上银行”，我的数据源“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)

Tables("对公客户明细").ResumeRedraw()

msgbox("网银数据导入完毕!",64,"提示")

End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/6 20:50:00 [只看该作者]

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

yjd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1434 威望：0 精华：0 注册：2014/11/7 21:15:00

Post By：2016/4/6 21:29:00 [只看该作者]

老师，没有实现xls表中有，Tables("对公客户明细")中没有相同“客户号”的记录不增加。另外，如果原多值字段已经勾选“网上银行”，执行代码后在“对公客户明细”表“已开通业务字段出现两个”网上银行“，怎样写代码实现原来已经勾选就不在重复添加。谢谢！

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/6 21:52:00 [只看该作者]

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

yjd

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1434 威望：0 精华：0 注册：2014/11/7 21:15:00

Post By：2016/4/6 22:17:00 [只看该作者]

老师，没有实现xls表中有，而Tables("对公客户明细")中没有“客户号”的记录不增加。谢谢

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/6 22:28:00 [只看该作者]

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

yjd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：183 积分：1434 威望：0 精华：0 注册：2014/11/7 21:15:00

Post By：2016/4/6 22:34:00 [只看该作者]

谢谢老师！

下一主题 >> << 上一主题

主题：[求助]