فلتر داتا جريد وكريستال ريبورت

كود :

   





    Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        LoadData()



    End Sub







    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim sql As String = "SELECT * FROM [Table1] "

        Using da As New OleDbDataAdapter(sql, Con)

            Dim dt As New DataTable

            da.Fill(dt)

            dgvList.DataSource = dt

        End Using

        Dim rep As New allReport1

        rep.SetDataSource(dt)

        CrystalReportViewer1.ReportSource = rep

        CrystalReportViewer1.Refresh()

        allReport1.firstdate = DateTimePicker1.Value

        allReport1.secanddate = DateTimePicker2.Value

        allReport1.Show()

    End Sub

PHP كود :

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

    Dim dt As New DataTable

    Dim sql As String = "SELECT * FROM [Table1] WHERE ([Sex]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)" 
    Using da As New OleDbDataAdapter(sql, Con)
        da.SelectCommand.Parameters.AddWithValue("@sex", Me.ComboBox1.Text)
        da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
        da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
        da.Fill(dt)
        dgvList.DataSource = dt
    End Using

    Dim rep As New allReport1
    rep.SetDataSource(dt)

    CrystalReportViewer1.ReportSource = rep
    CrystalReportViewer1.Refresh()

End Sub 

كود :

<?xml version="1.0" encoding="utf-8" ?>

<configuration>

    <configSections>

    </configSections>

    <connectionStrings>

        <add name="SavingDate.My.MySettings.db1ConnectionString" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb"

            providerName="System.Data.OleDb" />

        <add name="SavingDate.My.MySettings.dsreport" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\alma\Desktop\6\SavingDate\db1.mdb"

            providerName="System.Data.OleDb" />

    </connectionStrings>

    <system.diagnostics>

        <sources>

            <!-- This section defines the logging configuration for My.Application.Log -->

            <source name="DefaultSource" switchName="DefaultSwitch">

                <listeners>

                    <add name="FileLog"/>

                    <!-- Uncomment the below section to write to the Application Event Log -->

                    <!--<add name="EventLog"/>-->

                </listeners>

            </source>

        </sources>

        <switches>

            <add name="DefaultSwitch" value="Information" />

        </switches>

        <sharedListeners>

            <add name="FileLog"

                 type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"

                 initializeData="FileLogWriter"/>

            <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->

            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->

        </sharedListeners>

    </system.diagnostics>

</configuration>

PHP كود :

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <configSections>
  </configSections>
  <connectionStrings>
      <add name="SavingDate.My.MySettings.db1ConnectionString" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb"
          providerName="System.Data.OleDb" />
      <add name="SavingDate.My.MySettings.dsreport" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\alma\Desktop\6\SavingDate\db1.mdb"
          providerName="System.Data.OleDb" />
  </connectionStrings>
  <system.diagnostics>
      <sources>
          <!-- This section defines the logging configuration for My.Application.Log -->
          <source name="DefaultSource" switchName="DefaultSwitch">
              <listeners>
                  <add name="FileLog"/>
                  <!-- Uncomment the below section to write to the Application Event Log -->
                  <!--<add name="EventLog"/>-->
              </listeners>
          </source>
      </sources>
      <switches>
          <add name="DefaultSwitch" value="Information" />
      </switches>
      <sharedListeners>
          <add name="FileLog"
               type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
               initializeData="FileLogWriter"/>
          <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
          <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
      </sharedListeners>
  </system.diagnostics>

  <startup useLegacyV2RuntimeActivationPolicy="true">
      <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
  </startup>

</configuration> 