[العيدروس]

تشكر اخي ابراهيم و بارك الله فيك و لكن لو تكرمت كيف اضبط الاكواد مع بعضها بالزر الامر رقم1 لاني وضعتها هكذا و لم تضبط معي

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Cmd As New OleDbCommand("Select max(TeamID) from TableTeam", Conne)
       If Conne.State = ConnectionState.Closed Then Conne.Open()
       Dim Result As Object = Cmd.ExecuteScalar
       Dim Record As Integer
       If Result Is Nothing Then
           Record = 1
       Else
           Record = CInt(Result) + 1
       End If
       TextBox1.Text = Record.ToString()
       ComboBox1.SelectedIndex = -1


       Dim n As Integer = 1
       If ComboBox1.Items.Count < 7 Then
           ComboBox1.Items.Add(n)
       ElseIf ComboBox1.Items.Count >= 7 Then
           Dim r As Byte = ComboBox1.Items.Count \ 7
           ComboBox1.Items.Add(r + 1)
       End If

   End Sub

بعد اذنك كيف اركبها على بعضها