[adel27]

يعطيك العافيه ولكن المرفق لا يعمل (لم يتم تنزيله حظر تنزيل المرفق ..!)

---

أنا أبي أاعرف بس يعني أيش لم يتم أرجاع كائن مثيل ,,,.
  For i As Integer = 0 To ds.Tables("Users").Rows.Count - 1
في هذا الكود!!!

---

تم بحمد الله حل المشششششششكله أشهد بلله أني ميكرسوفت إلا شوي 

هذا الكود للفائده

Try
            da = New SqlDataAdapter("select * From Users", conn)
            ds = New DataSet
            da.Fill(ds, "Users")
            GRDD.DataSource = ds.Tables("Users")

            Dim max As Integer
            For i As Integer = 0 To ds.Tables("Users").Rows.Count - 1
                If ds.Tables("Users").Rows(i).Item("ID") > max Then
                    max = ds.Tables("Users").Rows(i).Item("ID")
                End If
            Next
            Id_name.Text = max + 1
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try