report

当时为解决一个问题，找了很久的一个贴子，自己做个保存吧。

Private Sub Command2_Click()
Unload DataReport1
Unload DataEnvironment1
Dim strmsg As String

Dim strdata As String

strdata = txtnumber

strmsg = InputBox("请输入您要打印的单号", "接件单打印", strdata)

DataEnvironment1.Commands("command1").Parameters("strnumber") = strmsg

DataReport1.Show

End Sub

vb6.0     win98     datareport控件怎么用？     我想打印某个人的信息。     datareport1.datasource=Dataenviromen1     datareport1.datamember=command1     其中command1中的SQL语句为“select * from mytable where name=?"     form1中设置了一个TEXT1控件，然后怎么办？(yy)
	将command1中的SQL语句改为     PARAMETERS p TEXT;     SELECT * FROM mytable WHERE name=p     然后在程序中使用如下语句：     DataEnvironment1.Commands("Command1").Parameters("p") = Text1.Text     DataReport1.Show               农夫的意见：     DataEnvironment1.connection.execute "select * from mytable where name=" & text1.txt