神马品牌网狮子头雕刻图片:vb报表问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 19:52:18
vb报表怎么做啊？？
比如一个带参数查询的，我用DataEnvironment1.Commands("Command1").Parameters("p") = Text3.Text
DataReport1.Show
它老是出错提醒我没有调用setParameterinfo，
还有就是datareport中如何做一个像datagrid一样的显示一条条的数据，再打印出来。用textbox的话只能显示一条阿。
急急急急急急急急急急急！！！！！！！
前面的问题作废，新问题我想通过点击按钮(command名为commandcx)来控制DataEnvironment的command对象的commandtext属性，来利用sql语句实现参数查询，如DataEnvironment1.Commands("Command1").CommandType = adCmdText
DataEnvironment1.Commands("Command1").CommandText = "select ypmc,gg,dw,cgj,sccj,cgsl,lsj from ypxx where ghdw=' " & DataComboghdw.BoundText & " ' " 执行代码后出来的报表没有任何数据，是怎么回事啊？？？？
比如一个带参数查询的，我用DataEnvironment1.Commands("Command1").Parameters("p") = Text3.Text
DataReport1.Show
它老是出错提醒我没有调用setParameterinfo，
还有就是datareport中如何做一个像datagrid一样的显示一条条的数据，再打印出来。用textbox的话只能显示一条阿。
急急急急急急急急急急急！！！！！！！
前面的问题作废，新问题我想通过点击按钮(command名为commandcx)来控制DataEnvironment的command对象的commandtext属性，来利用sql语句实现参数查询，如DataEnvironment1.Commands("Command1").CommandType = adCmdText
DataEnvironment1.Commands("Command1").CommandText = "select ypmc,gg,dw,cgj,sccj,cgsl,lsj from ypxx where ghdw=' " & DataComboghdw.BoundText & " ' " 执行代码后出来的报表没有任何数据，是怎么回事啊？？？？
那就用word模版吧
首先引用 microsoft word 11.0 object library
Dim WordTemps As New Word.Application
WordTemps.Documents.Add App.Path + "\pffp.dot", False
WordTemps.Selection.GoTo wdGoToBookmark, , , "日期"
'这句话的前提是要在模版中建立相对应的书签，这里的书签是“日期”
WordTemps.Selection.TypeText Date
'这句话的意思是在书签上赋值，值是data-就是时间
WordTemps.PrintOut
'打印
在word里面就可以随心所欲的设计了，画飞机都行，设置好书签的位置就行了
可以导出到excel，excel功能比较齐全，做报表灵活度比较好。