我希望报表中的内容是由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,请各位高手帮忙。谢谢!
或者还有其它方法也可以
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,请各位高手帮忙。谢谢!
或者还有其它方法也可以
解决方案 »
- VB文件操作
- combobox初始化问题........急
- Set 傳值??傳址????
- msflexgrid,mshflexgrid,datagrid这三个控件里,哪几个有分页的功能呢?
- 过年了散分了!!!!!!!!!!!!大家HAPPY一下!!!!!!!!
- 200求工控编程图标
- 如何在VB6的DataGrid控件,任意点一格,就会选定一行??谢谢
- VB 窗体和Timer控件都有BUG!!!
- 如何在VB6中建立具有alpha(透明)效果的窗口?
- 有没有报表控件可以与ADO接起来,然后打印
- 大家救命,关于自动加载点击某个菜单选项的问题
- 还是关于Internet Transfer control控件的问题,上贴已经结了,这次再请教诸位,本人在线守候 先谢了
Combo1.ItemData(Combo1.ListIndex)也有问题,是我抄别人原来的程序,但不使用我的。
另外我不知道给分的方法,可以告诉我吗。
回复人: 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'
楼上的好象不是楼主?
只有楼主才可以给分的!
给分的方法:
在贴子右下角点“管理”,在新开的窗体中给回贴人适当的分数,然后在窗口右上输入密码,点“结贴”。