[silverlight]

اولا عليك أن تحسب أخر Record في الداتا بيز كالتالي

كود :

Dim maxRecord As Integer = ds.Tables("All_Data").Rows.Count - 1

ثم لحساب الرقم الجديد يمكنك ان تستخدم الكود التالي

كود :

Dim i As Integer = 0
       While i < maxRecord
           TextBox1.Text = CStr(i)
           i += 1
       End While
       End While

او يمكنك استخدام الكود كالتالي:

كود :

       Dim maxRecord As Integer = ds.Tables("All_Data").Rows.Count - 1
       Dim i As Integer = maxRecord + 1
       TextBox1.Text = CStr(i)

لكن سيظل عليك ان تتأكد انه لا يوجد مستخدمان او اكثر يحاولان ادخال بيانات في نفس الوقت و في نفس اللحظة