07-05-20, 02:28 AM
(آخر تعديل لهذه المشاركة : 08-05-20, 06:31 AM {2} بواسطة Rabeea Qbaha.)
السلام عليكم
اريد تعديل على كود فيلتر للبيانات حيث يتم الفلترة و فرز حقل Date1 تنازلي
الكود يعمل معى جيدا ولكن دون الفرز و انا اريد فرز حقل Date1
و شكرا
اريد تعديل على كود فيلتر للبيانات حيث يتم الفلترة و فرز حقل Date1 تنازلي
الكود يعمل معى جيدا ولكن دون الفرز و انا اريد فرز حقل Date1
و شكرا
PHP كود :
Imports System
Imports System.Globalization
Imports System.Threading
Imports System.Data
Imports System.Data.OleDb
Public Class Form_نجارة
Dim Ole As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Smaller program.mdb")
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Private Property DataRow As OleDbDataAdapter
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim query As IEnumerable(Of StatusDataSet.Status_نجارةRow) =
StatusDataSet.Status_نجارة.
Where(Function(x As StatusDataSet.Status_نجارةRow) x.Date1 >= DateTimePicker1.Value.Date And x.Date1 <= DateTimePicker2.Value.Date)
If query.Count > 0 Then
MsgBox("سوف يتم عرض البيانات", MsgBoxStyle.DefaultButton1, "ogy soft")
Me.DataGridView1.DataSource = query.CopyToDataTable
Else
MsgBox("لا يوجد بيانات لهذا البحث", MsgBoxStyle.DefaultButton1, "ogy soft")
End If
If query.Count > 0 Then
Dim report As New CrystalReport_نجارة
report.SetDataSource(query.CopyToDataTable)
Form1.CrystalReportViewer1.ReportSource = report
Form1.ShowDialog()
End If
Label2.Text = DataGridView1.RowCount - 1