حالت موضوعی | حالت خطی

***CPSD Admin***

با سلام

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

راه حل ساده و بسیار کارآمدی که در این خصوص وجود داره استفاده از دستور حلقه هستش

کد: 

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

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

موفق باشید Smile

حالت موضوعی \| حالت خطی جداسازی اعداد از یکدیگر
نویسنده	پیام