实现功能：在表A中提取数据到表B中，如果表A里面的单元格为空，则不提取。用下面的代码是能够把表A里面的数据提取到表B中，但表B中第一列不知道该如何填上去。
先传代码：
DataTables("表B").DataRows.Clear '每次按按钮清除表B的内容
dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols ="货架A_出库金额,货架A_出库数量" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.Filter = Tables("表A").Filter & iif(Tables("表A").Filter > ""," and ","") & " 货架A_出库金额 is not null"
f.DataCols="金额,数量" '指定数据接收列
f.Fill() '填充数据
'【我的问题：如果" 货架A_出库金额 is not null" ，如何在表B的第一列第一行填上“货架A ”】
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols ="货架B_出库金额,货架B_出库数量" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.Filter = Tables("表A").Filter & iif(Tables("表A").Filter > ""," and ","") & " 货架B_出库金额 is not null"
f.DataCols="金额,数量" '指定数据接收列
f.Fill() '填充数据
'【我的问题：如果" 货架B_出库金额 is not null" ，如何在表B的第一列第二行填上“货架B ”】
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols ="货架C_出库金额,货架C_出库数量" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.Filter = Tables("表A").Filter & iif(Tables("表A").Filter > ""," and ","") & " 货架C_出库金额 is not null"
f.DataCols="金额,数量" '指定数据接收列
f.Fill() '填充数据
'【我的问题：如果" 货架C_出库金额 is not null" ，如何在表B的第一列第三行填上“货架C ”】
表A内容和结构
此主题相关图片如下：gg01.jpg
表B用代码得出的内容和结构
此主题相关图片如下：gg02.jpg
表B想要的理想结果（主要是想增加紫色方框里面的内容）
此主题相关图片如下：gg03.jpg
不想用表头横向变竖向的方法，因为我要过滤掉表A中为空的单元格。麻烦老师能抽个时间帮帮忙，在此先谢过了，提前祝老师国庆节快乐！
[此贴子已经被作者于2016/9/29 22:41:33编辑过]
加好友 
发短信
Post By：2016/9/29 22:37:00 [只看该作者]
