vb6 水晶报表参数字段传递值 的几个问题？希望大家给看看怎么样解决。
Private Sub DisplayReport1()
'' ==========================================================
' 开发人员：
' 编写时间：2008-09-01
' 过程名称：DisplayReport
' 参数说明：
' 功能说明：动态载入水晶报表文件（*.rpt）显示打印预览
'
' 其他说明：程序采用的是Crystal Reports 9.1版本
' 工程引用：Crystal Reports 9 ActiveX Designer Design and Runtime Library
' 控件：CRViewer91
'
'
'' ==========================================================
'*中央错误处理
On Error GoTo PROC_ERR
Dim m_Application As New CRAXDDRT.Application
Dim m_Report As CRAXDDRT.Report
Dim strSQL As String
strSQL = "SELECT * FROM 视图_收费_计量仪表 "
Dim strRptPath As String
strRptPath = App.Path & "\CryStal_RPT\Sell_Meter.rpt"
Debug.Print "strRptPath:" & strRptPath
Set m_Report = Nothing
Set m_Report = m_Application.OpenReport(strRptPath, 1)
m_Report.Database.Tables.Item(1).ConnectBufferString = objdata.ConnectionString
m_Report.SQLQueryString = strSQL
'****************************************************
m_Report.ParameterFields.GetItemByName("参数字段测试").ClearCurrentValueAndRange
m_Report.ParameterFields.GetItemByName("参数字段测试").AddCurrentValue ("sss")
m_Report.DiscardSavedData
'****************************************************
CRViewer91.DisplayGroupTree = False
CRViewer91.ReportSource = m_Report
CRViewer91.Zoom 1
CRViewer91.ViewReport
'*结束子程序
PROC_EXIT:
Exit Sub
'*错误处理，显示出错信息
PROC_ERR:
MsgBox " ErrNumber: " & Err.Number & vbCrLf & _
"ErrDescription: " & Err.Description & vbCrLf & _
" Module: " & Me.Caption & vbCrLf & _
" Procedure: " & "DisplayReport"
GoTo PROC_EXIT
End Sub
问题：1.如何让水晶报表不显示 输入参数值的对话框，而是让程序直接传递
2.在上面的代码中我建立了参数字段“参数字段测试” 在“**********”部分的代码 为什么没有正确执行
3.离散值 有什么作用该如何设置。
多谢大家！
[解决办法]
m_Report.DiscardSavedData
m_Report.ParameterFields.GetItemByName("MyParaT").ClearCurrentValueAndRange
m_Report.ParameterFields.GetItemByName("MyParaT").AddCurrentValue (Text1.Text)
