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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]条件替换，合并时变相排重

共有2099人关注过本帖树形打印复制链接主题：[求助]条件替换，合并时变相排重

大红袍

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

加好友

发短信

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

Post By：2015/7/14 9:24:00 [显示全部帖子]

参考 http://www.foxtable.com/help/topics/2334.htm

大红袍

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

加好友

发短信

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

Post By：2015/7/14 9:58:00 [显示全部帖子]

不要写到beforeadddatarow事件，你单独弄一个按钮输入代码

Dim Book As New XLS.Book("d:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("URL表").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("URL表").Find("网址 = '" & bh & "'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr = DataTables("URL表").AddNew()
    End If
    For m As Integer = 0 To nms.Length - 1
        dr(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("URL表").ResumeRedraw()

大红袍

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

加好友

发短信

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

Post By：2015/7/14 10:02:00 [显示全部帖子]

或者去写datacolchanged事件

If e.DataCol.Name = "网址" Then

    Dim fdr As DataRow = DataTables("URL表").Find("网址 = '" & e.newValue & "'")

    If fdr IsNot Nothing Then '如果不存在同编号的订单
        Dim nms() As String = {"客户端二级栏目","客户端三级栏目","信息分类","地区","部门","类型","状态","网站名","内容标注","栏目标注","栏目名","网址"}
        For m As Integer = 0 To nms.Length - 1
            fdr(nms(m)) = e.DataRow(nms(m))
        Next
        e.DataRow.Delete
    End If

End If

大红袍

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

加好友

发短信

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

Post By：2015/7/14 10:08:00 [显示全部帖子]

这个简单，参考

http://www.foxtable.com/help/topics/0328.htm

大红袍

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

加好友

发短信

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

Post By：2015/7/14 10:53:00 [显示全部帖子]

你要注意bh为空值的情况要怎么处理

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("URL表").StopRedraw()
    Dim nms() As String = {"客户端二级栏目","客户端三级级栏目","信息分类","地区","部门","类型","状态","网站名","内容标注","栏目标注","栏目名","网址"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bh As String = sheet(n,11).Text
        Dim dr As DataRow = DataTables("URL表").Find("网址 = '" & bh & "'")
        If dr Is Nothing Then
            dr = DataTables("URL表").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            dr(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("URL表").ResumeRedraw()
end if

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

主题：[求助]条件替换，合并时变相排重