تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مهم للغايه حدث LAOD أبي حل
#1
حــدث اللود لصفحة نموذج تعببئه البيانات

طبعاً في هذا الفورم يوجد تكست بكس تستقبل قيم من المستخدم الأسم - رقم الهويه -وإلى أخــره من ضمنها 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 اللي راح يتسجل فيه هذا الشخص 

الكود شغال معاي تمام ولكن عندي مشـكله وهي أنه سيستخدم البرنامج أكثر من شخص فعند فتح النافذه لمستخدمين في نفس الوقت سيظهر لهم في التسكت بكس نفس الرقم

أنـا أبيه إذا فتح مستخدم نموذج تعبئة البيانات يعطيه رقم بس ما يكرره عن مستخدم أخر 
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
For 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 

PHP كود :
For As Integer 0 To dt.Rows.Count 1
                Me
.DataGridView1.Rows.Add()
                
Me.DataGridView1(0i).Value 

أيهما أسهل برأيك؟
الرد }}}}
تم الشكر بواسطة:
#3
الطريقه الثانيه أكيد بدون

ولكن كيف أظهرها داخل التسكست بكس 1

طبقت المثال عطاني رقم 1 وهي قيمة خطأئه
الرد }}}}
تم الشكر بواسطة:
#4
طيب أنظر إلى هذه الطريقة أعتقد أنها أسهل من الأكواد أعلاه :
قم بإنشاء TextBox وزر أمر وضع الكود في زر الأمر :
PHP كود :
Static As Integer 0
        i 
1
        TextBox1
.Text CStr(i
الرد }}}}
تم الشكر بواسطة:
#5
سهل للغايه 
لكن النتيجه 1 

أنا أبحث عن كود بداية تحميل الفورم يضع في التكست بكس 1 رقم ID الخاص السجل نفسه 
بحيث أنه إذا شخص أخر فتح البرنامج وجاء يدخل البيانات يعطيه رقم غير الرقم اللي أخذه المستخدم الأول 
الرد }}}}
تم الشكر بواسطة:
#6
كود :
       Dim i As Integer = 0
       Dim max As Integer = 100
       While i < max
           TextBox1.Text = CStr(i)
           i += 1
       End While
الرد }}}}
تم الشكر بواسطة:
#7
جرب هذا
TextBox1.text = ds.Tables("All_Data").Rows.Count+1

استخدم كود للتأكد من الرقم هل هو موجود ام لا .. قبل عملية الحفظ , فاذا كان موجوداً قم باضافة 1 والبحث من جديد.
الرد }}}}
تم الشكر بواسطة:
#8
(03-11-15, 03:15 PM)silverlight كتب :
كود :
       Dim i As Integer = 0
       Dim max As Integer = 100
       While i < max
           TextBox1.Text = CStr(i)
           i += 1
       End While

خطأ عطاني 99 والمفروض يعطيني 22

(03-11-15, 03:47 PM)HASAN6.0 كتب : جرب هذا
TextBox1.text = ds.Tables("All_Data").Rows.Count+1

استخدم كود للتأكد من الرقم هل هو موجود ام لا .. قبل عملية الحفظ , فاذا كان موجوداً قم باضافة 1 والبحث من جديد.

خطأ أيضاُ  Confused Huh Huh
الرد }}}}
تم الشكر بواسطة:
#9
(03-11-15, 03:51 PM)adel27 كتب : خطأ أيضاُ  Confused Huh Huh

اذا ممكن ترفق المشروع او فورم مبسط حتى تكون عمليه فهم المطلوب اسهل ...
الرد }}}}
تم الشكر بواسطة:
#10
لماذا اخذت الكود و نفذته كما هو .........المفروض يا اخي إن قيمة max تعبر عن اخر رقم في الجدول عندك
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم