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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  感谢狐表软件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65921)

--  作者：xrz
--  发布时间：2015/3/25 17:53:00
--  感谢狐表软件

[此贴子已经被作者于2015/3/25 19:29:39编辑过]

--  作者：有点甜
--  发布时间：2015/3/25 17:56:00
--

这个意思？

DataTables("C").DataRows.Clear
For Each dr As DataRow In DataTables("A").Select("编号 Is not null and 商品名 is not null", "商品名, 仓库管理员")
    output.show("编号 = \'" & dr("编号") & "\' and 商品名 = \'" & dr("商品名") & "\' and 发货时间 = \'" & dr("发货时间") & "\'")
    Dim ffdr As DataRow = DataTables("B").Find("编号 = \'" & dr("编号") & "\' and 商品名 = \'" & dr("商品名") & "\' and 发货时间 = \'" & dr("发货时间") & "\'")
    If ffdr IsNot Nothing Then
        Dim fdr As DataRow = DataTables("C").Find("编号 = \'" & dr("编号") & "\' and 商品名 = \'" & dr("商品名") & "\' and 发货时间 = \'" & dr("发货时间") & "\'")
        If fdr Is Nothing Then
            fdr = DataTables("C").AddNew
            fdr("编号") = dr("编号")
            fdr("商品名") = dr("商品名")
        End If
        fdr("数量") = dr("数量")
        fdr("发货时间") = dr("发货时间")
        fdr("仓库管理员") = ffdr("仓库管理员")
    End If
Next

--  作者：xrz
--  发布时间：2015/3/25 18:13:00
--

[此贴子已经被作者于2015/3/25 19:30:09编辑过]

--  作者：xrz
--  发布时间：2015/3/25 18:57:00
--

[此贴子已经被作者于2015/3/25 19:30:28编辑过]

--  作者：xrz
--  发布时间：2015/3/25 18:58:00
--

[此贴子已经被作者于2015/3/25 19:30:45编辑过]

--  作者：xrz
--  发布时间：2015/3/25 18:59:00
--

[此贴子已经被作者于2015/3/25 19:28:11编辑过]

--  作者：有点甜
--  发布时间：2015/3/25 19:08:00
--

[此贴子已经被作者于2015/3/25 19:08:32编辑过]

--  作者：有点甜
--  发布时间：2015/3/25 19:10:00
--

最后排一下就好

DataTables("C").DataRows.Clear
For Each dr As DataRow In DataTables("A").Select("编号 Is not null and 商品名 is not null")
    output.show("编号 = \'" & dr("编号") & "\' and 商品名 = \'" & dr("商品名") & "\' and 发货时间 = \'" & dr("发货时间") & "\'")
    Dim ffdr As DataRow = DataTables("B").Find("编号 = \'" & dr("编号") & "\' and 商品名 = \'" & dr("商品名") & "\' and 发货时间 = \'" & dr("发货时间") & "\'")
    If ffdr IsNot Nothing Then
        Dim fdr As DataRow = DataTables("C").Find("编号 = \'" & dr("编号") & "\' and 商品名 = \'" & dr("商品名") & "\' and 发货时间 = \'" & dr("发货时间") & "\'")
        If fdr Is Nothing Then
            fdr = DataTables("C").AddNew
            fdr("编号") = dr("编号")
            fdr("商品名") = dr("商品名")
        End If
        fdr("数量") = dr("数量")
        fdr("发货时间") = dr("发货时间")
        fdr("仓库管理员") = ffdr("仓库管理员")
    End If
Next

Tables("表C").Sort = "仓库管理员"

--  作者：xrz
--  发布时间：2015/3/25 19:16:00
--
谢谢老师。我已经参考“在线文档”的“筛选与排序”写好了。

--  作者：xrz
--  发布时间：2015/3/25 19:21:00
--
老师，删除我自己的帖子没关系吧？我问这么浅显的问题，不大好意思哦。狐表真奇妙啊！