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

此主题相关图片如下：无标题.png

如图所示表A和表B，希望达到的效果。

表A的第一列和第二列每5组相衔接后，填充到表B的第一列。

同时表A的第三列也按照每5组相应的衔接后，填充到表B的第二列。

我用的填充的代码如下，但不知如何解决分组填充，请大侠指点。

Dim f As New Filler

f.SourceTable = DataTables("表A") '指定数据来源

f.SourceCols = "第一列,第三列" '指定数据来源列

f.DataTable = DataTables("表B") '指定数据接收表

f.DataCols = "第一列,第二列" '指定数据接收列

f.Distinct= True

f.ExcludeNullValue=True

f.Fill() '填充数据

f = New Filler

f.SourceTable = DataTables("表A") '指定数据来源

f.SourceCols = "第二列,第三列" '指定数据来源列

f.DataTable = DataTables("表B") '指定数据接收表

f.DataCols = "第一列,第二列" '指定数据接收列

f.Distinct= True

f.ExcludeNullValue=True

f.Fill() '填充数据

这组代码是直接把表A中的所有数据都填充到表B中了，实现不了分组的目的。

[此贴子已经被作者于2019/4/26 11:48:50编辑过]

感谢您的建议。

过滤条件的取值我想用窗口控件中的取值，试了好多次，实在是不知道这个表达式该怎么写。（学了这么久，一直对表达式该如何写很头痛，尤其是用方括号，单双引号，一直一头雾水）

DataTables("表B").DataRows.Clear

Dim f As New Filler

f.SourceTable = DataTables("表A")

f.SourceCols = "第一列,第三列"

f.DataTable = DataTables("表B")

f.DataCols = "第一列,第二列"

Dim b As Integer = e.Form.Controls("textBox1").value

f.Filter = "行号<b"

f.Fill()

b是能取到值的，但是总是显示未找到列 [b]。

谢谢有点甜老师

同样我分多少组，我也想用窗口控件来取值，这个表达式该怎么写，一直对表达的正确写法和头痛

主题：分组填充表