Tables("清单查询修改_Table1").Fill("Select [_Identify], 材料编码, 材料名称, 型号规格, 单机量, 装入位号, 分工 From {前工序清单} where [清单编号] = '" & Tables("清单列表").Current("前工序清单编号") & "'" ,"技术文件", False)Tables("清单查询修改_Table1").AllowEdit = True