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

[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]

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

143147
ببینید من فقط اعداد این چند ستون که انتخاب کردم رو میخام ، حالا من با وارد کردن عدد اول و انتهای ستون اول که در این تصویر می شود 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 تغیر بده فیلد ردیفت رو