- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多列自动分行填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104185)
-- 发布时间：2017/7/25 7:51:00
-- 多列自动分行填充
有点甜老师：你好！
由于Excel的分组+标签有漏行现象，现未解决。
我想能否通过狐表的多列分行填充解决？
如所附实例：在分拣单窗口的分拣单按钮上编写代码，按日期，以存货编码来依次填充四列，超过四列的在重复填充至下行中，至填完后，换一个存货编码继续循环填充。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:食材明细.foxdb |
-- 发布时间：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
-- 发布时间：2017/7/25 10:58:00
--
完美，谢谢！