Question

用VB和Grid++做报表设计，怎么在“VB代码中定义一个参数”可以在Grid++中显示出当前操作员和打印时间。

Option Explicit
Dim WithEvents report As grproLibCtl.GridppReport

Private Sub Command1_Click()
report [Print](True)
End Sub

Private Sub Command2_Click()
report.PrintPreview (True)
End Sub

Private Sub Form_Load()
Set report = New grproLibCtl.GridppReport
report.LoadFromFile ("D:\我的GRID++打印程序\gridputong1.grf")
report.DetailGrid.Recordset.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=企业通讯管理系统;Data Source=YWRJ;"

GRDisplayViewer1.report = report
GRDisplayViewer1.Start
End Sub

这个是我的代码，
我要定义Parameter1为当前操作员在Grid++报表中打印出来，要在代码里面怎么写入。因为客户端和SERVER端可能日期时间不一致，代码还要用服务器的打印时间。

Private Sub Report_Initialize()
End Sub
这个代码中间怎么写？

Answer 1

感觉你用的有点乱，如果要用参数传值的话，上面的框应该先画好、设置好，然后在程序里直接给参数传值就可以啦：rpt.ParameterByName("para1").Value="hello"
如果没有参数，而只是在相应位置显示数据，可以这样：
Dim ctl As IGRStaticBox
Set ctl = rpt.ReportHeader(1).Controls.Add(grctStaticBox)
With ctl '其它属性可根据情况调整
ctl.Text = "hello"
ctl.Left = 2
ctl.Top = 2
End With
另外，grid++report中示例代码还是比较全的，有时间的话可以多看看