+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ادخال ارقام بشكل منتظم في الدليل المحاسبي (/showthread.php?tid=39812)
ادخال ارقام بشكل منتظم في الدليل المحاسبي - بسام محمدغانم - 28-10-21
السلام عليكم
في شاشة الدليل المحاسبي يوجد 2 txtbox
الاول لرقم حساب الاب او حساب الجذر
و الثاني لرقم الحساب
اريد كود يعمل عملية تقييد للارقام التي تحتويها هذة txt
و شرط هو ان رقم الحساب يكون مشتق من رقم الحساب الاساسي او حساب الاب
مثال
رقم الحساب الاب =11101
ورقم الحساب المتفرع منة = 11101001
يتم الفحص اذا لم يكن مشتق من رقم الحساب الاب يتم رفض الادخال
وشكرا
RE: ادخال ارقام بشكل منتظم في الدليل المحاسبي - asemshahen5 - 28-10-21
ضع تشك بوكس على الحساب الاب اذا كانت ترو تفعل شيء و اذا كانت فالس تفعل شيء اخر .
RE: ادخال ارقام بشكل منتظم في الدليل المحاسبي - ابو انس - 28-10-21
وعليكم السلام
اظن ان بسام يريد التالي
كود :
Dim i As Integer = TextBox1.TextLength
Dim s As String
Dim d_text1 As String
s = TextBox2.Text
d_text1 = (LSet(s, i))
If TextBox1.Text <> d_text1 Then
MsgBox("لقد ادخلت حساب خطأ")
End IfRE: ادخال ارقام بشكل منتظم في الدليل المحاسبي - بسام محمدغانم - 29-10-21
(28-10-21, 02:00 PM)ابو انس كتب : وعليكم السلام
اظن ان بسام يريد التالي
كود :
Dim i As Integer = TextBox1.TextLength
Dim s As String
Dim d_text1 As String
s = TextBox2.Text
d_text1 = (LSet(s, i))
If TextBox1.Text <> d_text1 Then
MsgBox("لقد ادخلت حساب خطأ")
End If
مشكوووووووور اخي ساعدتني كثير