vb.net,和ＡＲ７报表的script之间传递参数

在vb.net里会产生几个参数用于ＡＲ７报表的script里面使用，我之前使用的方法是：
在ＶＢ．ｎｅｔ里面抽出的数据放在DataTable，在循环给报表里的字段：
rpt1.DataMember = dateRt100.TableName
rpt1.DataSource = dateRt100

For j = 0 To dateRt100.Rows.Count - 1
                rpt1.Fields("Fact_Cd").Value = dateRt100.Rows(j)("Fact_Cd").ToString
                rpt1.Fields("transport_cd").Value = dateRt100.Rows(j)("transport_cd").ToString
                rpt1.Fields("Bos_Cd").Value = dateRt100.Rows(j)("Bos_Cd").ToString
                rpt1.Fields("Haisya_No").Value = dateRt100.Rows(j)("Haisya_No").ToString
                rpt1.Fields("RecordSet").Value = dateRt100.Rows(j)("RecordSet").ToString
                rpt1.Fields("DateTime").Value = dateRt100.Rows(j)("DateTime").ToString
            Next
在ＡＲ７报表的script　的头部使用ｇｅｔ，ｓｅｔ进行取值：
Public Property Fact_Cd() As Object
        Get
                Return varFact_Cd
        End Get
        Set(ByVal vNewValue As Object)
                varFact_Cd = vNewValue
        End Set
End Property

Public Property transport_cd() As Object
        Get
                Return varTransport_Cd
        End Get
        Set(ByVal vNewValue As Object)
                varTransport_Cd = vNewValue
        End Set
End Property

Public Property Bos_Cd() As Object
        Get
                Return varBos_Cd
        End Get
        Set(ByVal vNewValue As Object)
                varBos_Cd = vNewValue
        End Set
End Property

Public Property Haisya_No() As Object
        Get
                Return varHaisya_No
        End Get
        Set(ByVal vNewValue As Object)
                varHaisya_No = vNewValue
        End Set
End Property

Public Property RecordSet() As Object
        Get
                Return objRec
        End Get
        Set(ByVal vNewValue As Object)
                objRec = vNewValue
        End Set
End Property


Public Property DateTime() As String
        Get
                Return strDate
        End Get
        Set(ByVal vNewValue As String)
                strDate = vNewValue
        End Set
End Property
但是运行之后还是没有取到值，请各位大神求救！！

草帽专家 你好

谢谢你提供的代码，但是我还不太确定你想要实现的功能，要是方便的话能否发一个完整的例子给我看一看。

此外，关于Script的使用你可以参考AR7帮助文档的这个章节：
ActiveReports Developer 7 > ActiveReports Developer Guide > How To > Section Report How To > Add Code to Layouts Using Script

AR7帮助文档找到了，谢谢dof

不客气