viper2009
چهارشنبه 09 فروردین 1391, 19:19 عصر
با سلام
عید همه مبارک
من می خواسم شماره اسناد را بر اساس شماره سند صعودی و یا نزولی مرتب کنم
اما شماره سندهای من متغیر و نا هماهنگ اند بصورت زیر
300/14/2384/91/151
و یا
12/22-5581/90/3146
من می خواهم که کاربر وقتی این شماره اسناد را در تکست باکس وارد می کند ، بطور اتوماتیک شماره انتهای سند شش رقمه شود و برای شماره های کمتر از شش رقم، پشت شماره صفر جایگزین شود.
مثل زیر
300/14/2384/91/000151
و یا
12/22-5581/90/003146
خودم در فرمم دوتا تکست باکس گذاشتم برای ابتدای شماره (که هرچه باشد) و یک تکست باکس برای انتهای شماره که با استفاده از دستور TextBox1.Text.PadLeft در رویداد Validated تکست باکس این مشکل حل می شود.
و برای ابتدای شماره از کد زیر
TextBox1.Text = Microsoft.VisualBasic.Right(TestString, 6)
Dim txtReverse1 As String = StrReverse(TestString)
Dim txtRemove As String = txtReverse1.Remove(1, 7)
TextBox2.Text = StrReverse(txtRemove) & "/"
استفاده کردم
اما وقتی خودم را در نقش کاربر قرار می دهم می بینم که برای ورود اطلاعات خیلی کار سخت میشه.
حالا از دوستان می خوام که آیا میشه در یک تکست باکس این خاصیت ها را اعمال کرد
نمی دونم آیا دستور Split در اینجا کمکی می کنه که بتونم انتهای شماره را پیدا و اصلاح کنم؟
عید همه مبارک
من می خواسم شماره اسناد را بر اساس شماره سند صعودی و یا نزولی مرتب کنم
اما شماره سندهای من متغیر و نا هماهنگ اند بصورت زیر
300/14/2384/91/151
و یا
12/22-5581/90/3146
من می خواهم که کاربر وقتی این شماره اسناد را در تکست باکس وارد می کند ، بطور اتوماتیک شماره انتهای سند شش رقمه شود و برای شماره های کمتر از شش رقم، پشت شماره صفر جایگزین شود.
مثل زیر
300/14/2384/91/000151
و یا
12/22-5581/90/003146
خودم در فرمم دوتا تکست باکس گذاشتم برای ابتدای شماره (که هرچه باشد) و یک تکست باکس برای انتهای شماره که با استفاده از دستور TextBox1.Text.PadLeft در رویداد Validated تکست باکس این مشکل حل می شود.
و برای ابتدای شماره از کد زیر
TextBox1.Text = Microsoft.VisualBasic.Right(TestString, 6)
Dim txtReverse1 As String = StrReverse(TestString)
Dim txtRemove As String = txtReverse1.Remove(1, 7)
TextBox2.Text = StrReverse(txtRemove) & "/"
استفاده کردم
اما وقتی خودم را در نقش کاربر قرار می دهم می بینم که برای ورود اطلاعات خیلی کار سخت میشه.
حالا از دوستان می خوام که آیا میشه در یک تکست باکس این خاصیت ها را اعمال کرد
نمی دونم آیا دستور Split در اینجا کمکی می کنه که بتونم انتهای شماره را پیدا و اصلاح کنم؟