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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多列自动分行填充

共有2081人关注过本帖树形打印复制链接主题：多列自动分行填充

zhangxl1964

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

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

多列自动分行填充 发帖心情

Post By：2017/7/25 7:51:00 [只看该作者]

有点甜老师：你好！

由于Excel的分组+标签有漏行现象，现未解决。

我想能否通过狐表的多列分行填充解决？

如所附实例：在分拣单窗口的分拣单按钮上编写代码，按日期，以存货编码来依次填充四列，超过四列的在重复填充至下行中，至填完后，换一个存货编码继续循环填充。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:食材明细.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/25 8:54:00 [只看该作者]

Dim dt1 As DataTable = DataTables("申购明细")
Dim dt2 As DataTable = DataTables("分拣单")
dt2.DataRows.clear
Dim filter As String = ""
For Each chbm As String In dt1.GetValues("存货编码", filter)
    Dim drs = dt1.Select("存货编码 = '" & chbm & "'")
    Dim i As Integer = 0
    Dim dr As DataRow
    Do While i < drs.count
        Dim idx = i Mod 3
        If idx = 0 Then
            dr = dt2.addnew
            dr("日期") = drs(i)("日期")
            dr("存货编码") = drs(i)("存货编码")
        End If
        dr("客户名称" & idx+1) = drs(i)("客户名称")
        dr("数量" & idx+1) = drs(i)("出库数量")
        i += 1
    Loop
Next

zhangxl1964

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

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2017/7/25 10:58:00 [只看该作者]

完美，谢谢！

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

主题：多列自动分行填充