序号	编号	早上	中午	晚上	早餐	中餐	晚餐	其他餐
a1	sz001	1	1	4	5	2	1	7
a2	sz002	1	2	3	3	3	2	4
a3	sz003	2	2	2	5	6	1	2
a4	sz004	1	3	2
a5	sz005	1	1	4
a6	sz006	2	3	1
a7	sz007	2	1	5
a8	sz008	1	1	4
a9	sz009	1	1	4

("序号"、“编号”列为字符型，且数据不同，其他列为数据型）

表B

序号	编号	早上	中午	晚上	早餐	中餐	晚餐	其他餐

（数据类型同表A）

要求：

1、从表A中找出"早上“、”中午“、”晚上“列数据都是1、1、4的列，将其对应的“编号”填到表B对应列中

 

序号	编号	早上	中午	晚上	早餐	中餐	晚餐	其他餐
	sz001
	sz005
	sz008
	sz009

  

2、根据表B的”编号“，在表A中找出对应的其他列数据，分别填入表B的对应行中

dim f As New Filler

f.SourceTable = DataTables("表A")

f.DataTable = DataTables("表B")

f.Filter = "早上=1 and 中午=1 and 晚上=4"

f.Fill() \'填充数据