水晶报表高手请进!!!

Question

flers(flers) ,能具体举个例子吗?
meteorlg(),我隐藏了,还是去不掉,是不是操作有误?

Answer 1

Dim mystr, bh As String
        Dim myadapter As SqlDataAdapter
        Dim myds As New DataSet()
        bh = Request.QueryString("bh")
        mystr = "select * from ckqd where bh='" & bh & "'"
        wlgl_conn.Open()
        myadapter = New SqlDataAdapter(mystr, wlgl_conn)
        myadapter.Fill(myds)
        myrpt.SetDataSource(myds.Tables(0))
        cry_ckqd.ReportSource = myrpt
        cry_ckqd.DataBind()
        '页眉赋值
        Dim txt_bh, year, month, day, dwmc As TextObject
        txt_bh = myrpt.ReportDefinition.ReportObjects.Item("Text22")
        txt_bh.Text = bh
        year = myrpt.ReportDefinition.ReportObjects.Item("year")
        year.Text = Now.Date.Year
        month = myrpt.ReportDefinition.ReportObjects.Item("month")
        month.Text = Now.Date.Month
        day = myrpt.ReportDefinition.ReportObjects.Item("day")
        day.Text = Now.Date.Day
        dwmc = myrpt.ReportDefinition.ReportObjects.Item("dwmc")
        dwmc.Text = wlgl.WebForm1.myhas("dwmc")
        myreader.Close()
        wlgl_conn.Close()