جمع کردن چند تکست باکس باهم

[mahdi.fa]

سلام دوستان نمیدونم چرا این برنامه جواب نمیده دوستان اگ محبت کنند یه نگاهی بیندازند ببینند مشکل از کجاست ممنون میشم .
میخام اگ مقدار تکست 1 بیشتر از تکست 2 شد برد سراغ تکست 4 و 5 وهمین برنامه برا این دو اگه شد برود سراغ دوتا تکست دیگر ممنون .

[mahdi.fa]

دوستان کارم گیر افتاده خیلی وقته منتظرم خواهشا یکی ی نگاهی بندازه مشکل از کجاس خواهش

[isaac23]

من سورس رو دانلود کردم اما متوجه نشدم چیکار میخای بکنی و تو سورس هم متوجه نشدم

[mahdi.fa]

ممنون از زحمتتون ، این سورس جدید رو ک گزاشتم رو بررسی کنید من میخوم جمع ردیف ها رو محدود کنم یعنی اینکه مثلا شروع کنه از 1 تا 10 رو یکی یکی اضافه کنه بعد که به عدد 10 رسید بره سراغ دوتا تکست بعدی و اون دو تا رو یکی یکی جمع کنه مثلا تکست سوم از 70 شروع میشه تا 90 بعد دوباره که به عدد 90 رسید بره سراغ دوتا تکست بعدی و اون ها رو جمع کنه مثلا تکست 5 و 6 از 120 شروع میشه تا 160 وهمینطور برای دوتای بعدی ممنون از لطفتون اگ ممکنه زود کارم گیره.

[isaac23]

سلام نمونه کد و سورس برنامه

Public txt As Integer

Private Sub Command1_Click()



Select Case txt



Case Is = 1

Static i As Integer

i = i + 1

Text1.Text = i

If Text1.Text > 9 Then Text2.SetFocus



Case Is = 2

Static b As Integer

b = Text2 + 1

Text2.Text = b

If Text2.Text > 19 Then Text3.SetFocus



Case Is = 3

Static c As Integer

c = Text3 + 1

Text3.Text = c

If Text3.Text > 29 Then Text4.SetFocus



Case Is = 4



Static d As Integer

d = Text4 + 1

Text4.Text = d



End Select



End Sub



Private Sub Text1_GotFocus()

txt = 1



End Sub



Private Sub Text2_GotFocus()

txt = 2





End Sub



Private Sub Text3_GotFocus()

txt = 3





End Sub



Private Sub Text4_GotFocus()

txt = 4





End Sub

اینم سورس
خدا کنه منظورت رو درست گرفته باشم

[mahdi.fa]

ممنون اقا عیسی بابت اینکه وقت گزاشتید اما منظورم این نبود ببینید من رو تصویر نشون میدم

jm.jpg
ببینید من فقط اعداد این چند ستون که انتخاب کردم رو میخام ، حالا من با وارد کردن عدد اول و انتهای ستون اول که در این تصویر می شود 1 - 10 میخوام یکی یکی عدد بهم بده تا اینکه به عدد انتها برسد موقعی که رسید بره سراغ ستون انتخاب شده ی بعدی که عدد اول و انتهای اون رو مشخص کردم 31-40 و همینطور برای ستون های سوم و چهارم امیدوارم منظورم رو درست رسونده باشم

[parsadsa]

سلام دوستان نمیدونم چرا این برنامه جواب نمیده دوستان اگ محبت کنند یه نگاهی بیندازند ببینند مشکل از کجاست ممنون میشم .
میخام اگ مقدار تکست 1 بیشتر از تکست 2 شد برد سراغ تکست 4 و 5 وهمین برنامه برا این دو اگه شد برود سراغ دوتا تکست دیگر ممنون .

سلام
فایل پیوست ببین
دو حالت وجود داره
1- اعداد پش سر هم باشن : 1.2.3.4.5.6.....
که در این حالت با افزودن یک واحد به مقدار قبلی به نتیجه میرسیم
2- اعداد ردیف هم نیاشند : 1.5.6.3.2.8.9.4.2.12.36.64.65.32.....
که در حالت باید از ایندکس سلول یا شیعی که اعداد در انها وجود داره استفاده کرد
در فایل پیوست از روش اول استفاده شده

[mahdi.fa]

معذرت میخوام اگ بخوام شماره ها رو درهم بزنه باید چکار کنم
بعد با چه کدی میتونم دیتام رو صعودی به نزولی تنظیم کنم

[mahdi.fa]

دوستان من از این کد برای سورت کردن استفاده میکنم

Adodc1.Refresh
Adodc1.Recordset.Sort = ("radif")

اما این کد میاد اول هرچی که اول 1 باشه رو نشون میده یعنی 1 ، 10 ، 101 ، 2 ،20 ممنون میشم مشکلم رو حل کنید.

[isaac23]

نوع فیلد ردیف چی هست ؟ به Number تغیر بده فیلد ردیفت رو