[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي هذه هي الاكواد والمثال بعد التعديل

كود :

Imports System.Data.OleDb

Public Class Form1
   Dim dt As New DataTable()
   Dim Cmd As New OleDbCommand()
   Public Sub SelectData(Cmb As ComboBox)
       Try
           dt.Clear()
           Cmd = New OleDbCommand("select * from Table1 where datee Between  # 1/1/" & Cmb.Text & "# and # 31/12/" & Cmb.Text & "#", con)
           If con.State = ConnectionState.Open Then con.Close()
           con.Open()
           dt.Load(Cmd.ExecuteReader)
           con.Close()
       Catch ex As Exception
       End Try
   End Sub
   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       Dim aa As Byte = 0
       If ComboBox1.Text <> "" Then
           SelectData(ComboBox1) ' مناداة دالة جلب البيانات
           If dt.Rows.Count > 0 Then
               ' هذا الكود مختصر ولكن يجب ان تبقى التكستات متسلسة حسب الاندكس
               For Each c As Control In Me.Controls
                   If TypeOf c Is TextBox Then
                       c.Text = dt.Rows(aa).Item("mouney").ToString()
                       aa += 1
                   End If
               Next
               '' او هذا الكود الطويل
               'TextBox1.Text = dt.Rows(0).Item("mouney").ToString()
               'TextBox2.Text = dt.Rows(1).Item("mouney").ToString()
               'TextBox3.Text = dt.Rows(2).Item("mouney").ToString()
               'TextBox4.Text = dt.Rows(3).Item("mouney").ToString()
               'TextBox5.Text = dt.Rows(4).Item("mouney").ToString()
               'TextBox6.Text = dt.Rows(5).Item("mouney").ToString()
               'TextBox7.Text = dt.Rows(6).Item("mouney").ToString()
               'TextBox8.Text = dt.Rows(7).Item("mouney").ToString()
               'TextBox9.Text = dt.Rows(8).Item("mouney").ToString()
               'TextBox10.Text = dt.Rows(9).Item("mouney").ToString()
               'TextBox11.Text = dt.Rows(10).Item("mouney").ToString()
               'TextBox12.Text = dt.Rows(11).Item("mouney").ToString()
           End If
       End If
   End Sub
End Class