我希望报表中的内容是由combo控件中选择的查询结果,打印按钮代码如下:
DataEnvironment1.Commands("Command1").Parameters(0) = Combo1.ItemData(Combo1.ListIndex)
If DataEnvironment1.rsCommand1.State <> adstateclose Then
DataEnvironment1.rsCommand1.Close
End If
DataReport1.Show在dataenvironment的command中sql语句为:
SELECT * FROM 表3 WHERE 钢种 LIKE ?
但是在参数页面中左边的参数我不知道如何该成param1,请各位高手帮忙。谢谢!
或者还有其它方法也可以

解决方案 »

  1.   

    DataEnvironment1.Commands(1).CommandText = Combo1.ItemData(Combo1.ListIndex)
      

  2.   

    谢谢!我终于找到问题所在,SELECT * FROM 表3 WHERE 钢种 LIKE param1,而不是SELECT * FROM 表3 WHERE 钢种 LIKE ?
    Combo1.ItemData(Combo1.ListIndex)也有问题,是我抄别人原来的程序,但不使用我的。
    另外我不知道给分的方法,可以告诉我吗。
      

  3.   

    能说一下你是怎么做的吗,我用了楼上,
    回复人: gemgama(gemgama) ( ) 信誉:100  2003-7-7 23:44:22  得分:0 DataEnvironment1.Commands(1).CommandText = Combo1.ItemData(Combo1.ListIndex)的方法,不行
    我是这样写的
    ZCroamden.Commands("branch").CommandText = "SELECT ckb.ckb_barcode AS 条码, base.base_name AS 名称, ckb.ckb_cost AS 单价, ckb.ckb_num AS 数量, base.base_modal AS 型号, base.base_unit AS 单位, base.base_unit_num AS 单位数量, pro.pro_name AS 供应商, ckb.ckb_tx AS 有无特许, optb.op_name AS 操作 FROM ckb INNER JOIN base ON ckb.ckb_barcode = base.base_barcode INNER JOIN pro ON base.base_provide_no = pro.pro_no INNER JOIN optb ON ckb.ckb_op = optb.op_no AND base.base_reg_op = optb.op_no AND pro.pro_op = optb.op_no WHERE (ckb.bra_code = '0233820100989435')"
    brackbaob.Show
    显示报表是说有一个错误:未能找到datefield'branch.bra_no'
      

  4.   

    很明显你的branch.bra_no的表不在数据库内,修改或增加你的数据库中的branch.bra_no
    楼上的好象不是楼主?
    只有楼主才可以给分的!
    给分的方法:
    在贴子右下角点“管理”,在新开的窗体中给回贴人适当的分数,然后在窗口右上输入密码,点“结贴”。