[khaled12345]

السلام عليكم اخوتي الاحباب

وعيدكم مبارك ان شاء الله

عندي مشكلة في هذا الكود لعمل تنقل بين السجلات

للاسف المشروع كبير ولم اتمكن من رفعه


لذلك  وضعت الكود بالاسفل

فالرجاء المساعدة
 

Imports System.Data.OleDb

Public Class MW_Details

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MW_Details.accdb")

Dim da As New OleDbDataAdapter '

Dim dt As New DataTable '

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

Dim R As New ResizeControls()

Dim WithEvents BindingSource1 As New BindingSource

Sub Load_Data()

dt.Clear()

' تغير اسم الجدول هنا اسمه

da = New OleDbDataAdapter("Select * From MW_Details", con)

da.Fill(dt)

End Sub

Sub save_Data()

Dim save As New OleDbCommandBuilder(da)

save.QuotePrefix = "["

save.QuoteSuffix = "]"

da.Update(dt)

dt.AcceptChanges()

End Sub

' ============================================================================================================

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

Load_Data()

DataGridView1.DataSource = dt

TextBox2.Text = DataGridView1.Rows.Count - 1

TextBox2.Text = DataGridView1.Rows.Count - 1

ResizeControls.SubResize(Me, 100, 120)

Me.StartPosition = FormStartPosition.CenterScreen

Me.CenterToScreen()

Me.WindowState = FormWindowState.Normal

End Sub

Private Sub Form1_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleCreated

R.Container = Me

End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

Me.StartPosition = FormStartPosition.CenterScreen

R.ResizeControls()

End Sub

　

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Dim query As String = "Select * From MW_Details where 1 = 1"

Dim w As New List(Of String)

　

' البحث بال Region

If ComboBox1.Text <> "" Then

query = query & " AND region = '" & ComboBox1.Text & "'"

End If

' البحث بال Area

If ComboBox2.Text <> "" Then

query = query & " AND Area = '" & ComboBox2.Text & "'"

End If

　

' احتيار ال Category

If ComboBox3.Text <> "" Then

query = query & " AND Link_status = '" & ComboBox3.Text & "'"

End If

' احتيار ال Root_Cause

If ComboBox4.Text <> "" Then

query = query & " AND Link_Config = '" & ComboBox4.Text & "'"

End If

' احتيار ال BSC_RNC_MME

If ComboBox5.Text <> "" Then

query = query & " AND IDU_A = '" & ComboBox5.Text & "'"

End If

' احتيار ال Responsibility

If ComboBox6.Text <> "" Then

query = query & " AND ODU_A = '" & ComboBox6.Text & "'"

End If

　

If ComboBox7.Text <> "" Then

query = query & " AND Fabricator = '" & ComboBox7.Text & "'"

End If

If ComboBox8.Text <> "" Then

query = query & " AND FON = '" & ComboBox8.Text & "'"

End If

Dim cmd As New OleDbCommand(query, con)

da = New OleDbDataAdapter(cmd)

dt = New DataTable("MW_Details")

dt.Clear()

da.Fill(dt)

DataGridView1.DataSource = dt

TextBox1.Text = DataGridView1.Rows.Count - 1

End Sub

Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click

Using da As New OleDbDataAdapter("Select * From MW_Details", con)

Dim dt As New DataTable

da.Fill(dt)

Me.DataGridView1.DataSource = dt

End Using

ComboBox1.Text = ("")

ComboBox2.Text = ("")

ComboBox3.Text = ("")

ComboBox4.Text = ("")

ComboBox5.Text = ("")

ComboBox6.Text = ("")

ComboBox7.Text = ("")

ComboBox8.Text = ("")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

RichTextBox1.Clear()

Load_Data()

TextBox1.Text = DataGridView1.Rows.Count - 1

End Sub

[align=left]Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As[size=small][size=small][font=Consolas] System.[/si