[浏览完整版]
标题：如何取得窗口数据表当前列的名称
1楼
唐尸三摆手 发表于：2010/4/10 10:32:00点击第一幅图的某单元格，打开第二附图，要求第二幅图过滤出的结果符合以下条件
分类码等于第一幅图（窗口1）中的当前行分类码，日期等于第一幅图（窗口1）当前列名称
想请教一下。如何取得当前所在单元格的列名称
此主题相关图片如下：pic065.jpg
此主题相关图片如下：pic066.jpg
分类码等于第一幅图（窗口1）中的当前行分类码，日期等于第一幅图（窗口1）当前列名称
想请教一下。如何取得当前所在单元格的列名称
此主题相关图片如下：pic065.jpg此主题相关图片如下：pic066.jpg[此贴子已经被作者于2010-4-10 10:33:17编辑过]
2楼
狐狸爸爸 发表于：2010/4/10 16:41:00Output.show(CurrentTable.Cols(CurrentTable.Colsel).Name)
3楼
唐尸三摆手 发表于：2010/4/10 18:14:00为什么报错呢
此主题相关图片如下：pic067.jpg
[此贴子已经被作者于2010-4-11 7:48:51编辑过]
4楼
狐狸爸爸 发表于：2010/4/11 9:32:00你的错误和2楼的代码无关
5楼
唐尸三摆手 发表于：2010/4/11 10:09:00烦请看一下，看不太懂啊
6楼
狐狸爸爸 发表于：2010/4/11 10:41:00嘿嘿，只能你自己看的，其实错误提示非常清楚的，已经告诉你哪个事件出了问题，问题是什么：
在表frm_c_b_Table1的doubleClick事件，试图将"分类编码 = 103003"这样的字符转换为一个长整数。
[此贴子已经被作者于2010-4-11 10:47:19编辑过]
7楼
唐尸三摆手 发表于：2010/4/12 7:40:00老大，但是我要的结果是 分类编码='103003'，怎样改动代码才不会报错呢
8楼
狐狸爸爸 发表于：2010/4/12 7:58:00呵呵，你得贴出代码我才能看啊
9楼
唐尸三摆手 发表于：2010/4/12 9:19:00Forms("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
红色代码后面加上
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 & ""
就开始报错了
10楼
狐狸爸爸 发表于：2010/4/12 9:27:001、这个是frm_c_b_Table1的doubleClick事件代码吗？ 我看不像啊。
2、做个简单的例子传上来。