ارسال پاسخ 
 
امتیاز موضوع:
  • 3 رأی - میانگین امتیازات: 4
  • 1
  • 2
  • 3
  • 4
  • 5
جداسازی اعداد از یکدیگر
نویسنده پیام
CPSD Admin آفلاین
مدیر سایت
*******

ارسال‌ها: 177
تاریخ عضویت: تير ۱۳۸۹
اعتبار: 0
ارسال: #1
Lightbulb جداسازی اعداد از یکدیگر
با سلام

در برخی موارد این نیاز وجود داره که در اسناد ( گزارشات ) ارقام به صورتی مجزا به نمایش در بیان ( به صورت ذیل )

[تصویر:  Dividing%20Nums.png]

راه حل ساده و بسیار کارآمدی که در این خصوص وجود داره استفاده از دستور حلقه هستش
کد:
For i = 1 To 9
       Me("p" & i) = Mid(StrReverse(txtNum), i, 1)
Next i
دستور فوق اقدام به جداسازی اعداد 9 رقمی خواهد نمود در صورتی که مایل بودید تعداد ارقام رو تغییر بدید شما تنها نیاز دارید عدد 9 رو به عدد مد نظر تغییر داده و TextBox های متناظر رو در داخل گزارش به جهت جایگیری عدد ایجاد کنید

کد:
For i = 1 To 12
       Me("p" & i) = Mid(StrReverse(txtNum), i, 1)
Next i


.zip  Dividing Numbers.zip (اندازه: 53.48 KB / تعداد دفعات دریافت: 408)

موفق باشید Smile

درگاه : وب سايت | فروشگاه | وبلاگ
۲۲ دي ۱۳۹۰ ۰۹:۵۱ عصر
مشاهده‌ی وب سایت کاربر یافتن تمامی ارسال‌های این کاربر نقل قول این ارسال در یک پاسخ
ارسال پاسخ 


پیام‌های داخل این موضوع
جداسازی اعداد از یکدیگر - CPSD Admin - ۲۲ دي ۱۳۹۰ ۰۹:۵۱ عصر
RE: جداسازی اعداد از یکدیگر - chemvoice - ۲۲ اسفند ۱۳۹۰, ۰۹:۴۱ صبح
RE: جداسازی حروف از یکدیگر - CPSD Admin - ۲۲ اسفند ۱۳۹۰, ۰۶:۱۵ عصر

پرش به انجمن:


‍CPSD.ir Website

وب سايت      |      وبلاگ      |      فروشگاه

 

Center Point SD - Software Developer

Yaldex PopUp