主题：如何取得窗口数据表当前列的名称

点击第一幅图的某单元格，打开第二附图，要求第二幅图过滤出的结果符合以下条件


分类码等于第一幅图（窗口1）中的当前行分类码，日期等于第一幅图（窗口1）当前列名称
想请教一下。如何取得当前所在单元格的列名称



此主题相关图片如下：pic065.jpg


此主题相关图片如下：pic066.jpg

为什么报错呢

此主题相关图片如下：pic067.jpg

烦请看一下，看不太懂啊

老大，但是我要的结果是  分类编码='103003'，怎样改动代码才不会报错呢

Forms("frm_c_a").open()
    Forms("frm_c_a").Controls("Label1").text=tables("frm_c_b_table1").current("分类码")
    Forms("frm_c_a").Controls("Label2").text=CurrentTable.Cols(CurrentTable.Colsel).Name
    tables("frm_c_a_table1").fill("select DISTINCT a.planid as'计划组号', a.requiredate as'排产日期',f.date_paying as'交货期',c.deptcode as'部门编码',d.name as'部门名称',a.requiresumcontractno as'订单编号',a.id_contract as'合同编号',a.itemcode as'产品编码',b.name as'产品名称',b.unit as'单位',b.classcode as'分类编码',e.classname as'分类名称',a.plannum as'计划数量' from aec00000 a,aaa00000 b,abb00000 c,zad00000 d,aam00000 e,eba00000 g,ebf00000 f where a.itemcode=b.code and a.centercode='0100' and c.itemcode=a.itemcode and c.deptcode=d.code and b.classcode=e.classcode  and a.plannum<>a.finishnum and a.requiredate>getdate()-30  and g.id_contract=f.id_contract and a.id_contract=f.id_contract and f.id_product= a.itemcode  and g.sellunit<>'0702' order by a.requiredate,c.deptcode,a.itemcode","erp",true)
    Tables("frm_c_a_Table1").Filter = "分类编码 = " & Forms("frm_c_a").Controls("Label1").text & ""
    tables("frm_c_a_table1").rowheadervisible=false
    tables("frm_c_a_table1").autosizecols()
    Forms("frm_c_b").Controls("Label1").visible=false


红色代码后面加上

 and "排产日期 = " & Forms("frm_c_a").Controls("Label2").text & ""

 

就开始报错了

现在的问题是，日期列标题作为过滤条件报错

请看图
此主题相关图片如下：pic075.jpg

楼上的方法不行，报错