VB+水晶报表的问题 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → VB+水晶报表的问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 808 人关注过本帖

标题：VB+水晶报表的问题

只看楼主加入收藏

sky_yang_sky

等　级：论坛游民
威　望：8
帖　子：481
专家分：16
注　册：2007-5-30
结帖率：50%

楼主

问题点数：0 回复次数：1

VB+水晶报表的问题

我的存储过程中有一个参数@date1,我把它做为我的报表数据源,现在是我在VB中怎样获得这个报表的这相参数字段?

搜索更多相关主题的帖子: 水晶　参数　数据源　字段　

2008-04-29 11:51

sky_yang_sky

等　级：论坛游民
威　望：8
帖　子：481
专家分：16
注　册：2007-5-30

第 2 楼

得分:0

Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Dim parameterfield As CRAXDDRT.ParameterFieldDefinition
'Report.ParameterFields.GetItemByName("@date1").ClearCurrentValueAndRange
'Report.ParameterFields.GetItemByName("@date1").AddCurrentValue (Val(Text1.Text))
Report.ParameterFields(1).ClearCurrentValueAndRange
Report.ParameterFields(1).AddCurrentValue (Val(Text1.Text))
Report.DiscardSavedData
Form1.Show
ElseIf Text1.Text = "" Then
   MsgBox "天数不能为空", vbOKOnly, "提示"
Else
   MsgBox "请输入正确的天数", vbOKOnly, "提示"
   Text1.SetFocus
End If
End Sub
这是我的程序过程,但是文本中的数好像没有传给参数,参数任是在报表中设的离散数.要怎么处理?知道的请指教,谢谢

你微笑的面對整個世界，整個世界也將會微笑的面對你。

2008-04-29 16:48

快速回复：VB+水晶报表的问题