03-11-15, 02:06 PM
حــدث اللود لصفحة نموذج تعببئه البيانات
طبعاً في هذا الفورم يوجد تكست بكس تستقبل قيم من المستخدم الأسم - رقم الهويه -وإلى أخــره من ضمنها TextBox1.Text وهذا التكست عبـاره عن أسم الملف له شرط وشرطه موجود بالأسفل مفعل فيه خاصيه أنيبل = ترو
هنـا كود تحميل الجدول داخل الدتا قريد فـيو
+
Dim max As Integer
For i As Integer = 0 To ds.Tables("All_Data").Rows.Count - 1
If ds.Tables("All_Data").Rows(i).Item("ID") > max Then
max = ds.Tables("All_Data").Rows(i).Item("ID")
End If
Next
( TextBox1.Text = CStr(max + 1
هذا الكود يضع لي في TEXTBOX1.TEXT رقم ID اللي راح يتسجل فيه هذا الشخص
الكود شغال معاي تمام ولكن عندي مشـكله وهي أنه سيستخدم البرنامج أكثر من شخص فعند فتح النافذه لمستخدمين في نفس الوقت سيظهر لهم في التسكت بكس نفس الرقم
أنـا أبيه إذا فتح مستخدم نموذج تعبئة البيانات يعطيه رقم بس ما يكرره عن مستخدم أخر
طبعاً في هذا الفورم يوجد تكست بكس تستقبل قيم من المستخدم الأسم - رقم الهويه -وإلى أخــره من ضمنها TextBox1.Text وهذا التكست عبـاره عن أسم الملف له شرط وشرطه موجود بالأسفل مفعل فيه خاصيه أنيبل = ترو
هنـا كود تحميل الجدول داخل الدتا قريد فـيو
+
Dim max As Integer
For i As Integer = 0 To ds.Tables("All_Data").Rows.Count - 1
If ds.Tables("All_Data").Rows(i).Item("ID") > max Then
max = ds.Tables("All_Data").Rows(i).Item("ID")
End If
Next
( TextBox1.Text = CStr(max + 1
هذا الكود يضع لي في TEXTBOX1.TEXT رقم ID اللي راح يتسجل فيه هذا الشخص
الكود شغال معاي تمام ولكن عندي مشـكله وهي أنه سيستخدم البرنامج أكثر من شخص فعند فتح النافذه لمستخدمين في نفس الوقت سيظهر لهم في التسكت بكس نفس الرقم
أنـا أبيه إذا فتح مستخدم نموذج تعبئة البيانات يعطيه رقم بس ما يكرره عن مستخدم أخر