[سؤال] باراميتر و LISTBOX - نسخة قابلة للطباعة

كود :

Private Sub setfiltersparameters1()



             Me.payrollTableAdapter.Fill(Me.embloyDataSet.payroll)



        Dim date1 As New ReportParameter("date", payroll.DateTextBox.Text)



        ReportViewer1.LocalReport.SetParameters(New ReportParameter() {date1})



        ReportViewer1.RefreshReport()

    End Sub

كود :

;MyReport.SetParameterValue("@Male", listBox1.items[0].toString())

           ;MyReport.SetParameterValue("@Female", listBox1.items[1].toString())

           ;()GenderForm GF = new GenderForm

           ;GF.crystalReportViewer1.ReportSource = MyReport

;()GF.ShowDialog

كود :

for(int i=0; i<listBox1.Items.Count; i++)

                                                                                             } 

                ; MyReport.SetParameterValue(gender[i], listBox1.Items[i].ToString())

                                                                                {

                                             ;()GenderForm GF = new GenderForm

                ;GF.crystalReportViewer1.ReportSource = MyReport

                                                                         ;()GF.ShowDialog

كود :

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If IsPostBack Then

            Dim i As Integer

            For i = 0 To ListBox2.Items.Count - 1

            ObjectDataSource1.SelectParameters("HSort").DefaultValue = ListBox2.Items(i).ToString()

 Next

            ObjectDataSource1.DataBind()

            ReportViewer1.LocalReport.Refresh()



        End If

    End Sub

PHP كود :

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        
        If IsPostBack Then
            Dim ds As New DataSet
            Dim cmd As New SqlCommand

            Dim con As New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\ClaimDB.mdf;Integrated Security=True")

            con.Open()


            Dim sql, sql1, sql2 As String

            sql = "select * from GHTable "

            sql1 = " where GHDate between convert(date,'" & txtFrom.Text & "',103) and convert(date,'" & txtTo.Text & "',103) "
            If ListBox2.Items.Count > 0 Then
                For i = 0 To ListBox2.Items.Count - 1
                    If sql2 = "" Then
                        sql2 = sql2 + "and GHSort=N'" & ListBox2.Items(i).Value.ToString & "' "
                    Else
                        sql2 = sql2 + "or GHSort=N'" & ListBox2.Items(i).Value.ToString & "' "
                    End If
                Next
            End If
            sql = sql + sql1 + sql2
            cmd.CommandText = sql
            cmd.Connection = con
            cmd.CommandType = CommandType.Text

            Dim da As New SqlDataAdapter(cmd)
            da.Fill(ds)

            con.Close()
            ReportViewer1.LocalReport.ReportPath = "ReportGH1.rdlc"
            Dim rds As New Microsoft.Reporting.WebForms.ReportDataSource("DataSet1", ds.Tables(0))
            ReportViewer1.LocalReport.DataSources.Clear()
            ReportViewer1.LocalReport.DataSources.Add(rds)
            ReportViewer1.LocalReport.Refresh()
        End If
        
    End Sub 