سلام دوستان نمیدونم چرا این برنامه جواب نمیده دوستان اگ محبت کنند یه نگاهی بیندازند ببینند مشکل از کجاست ممنون میشم .
میخام اگ مقدار تکست 1 بیشتر از تکست 2 شد برد سراغ تکست 4 و 5 وهمین برنامه برا این دو اگه شد برود سراغ دوتا تکست دیگر ممنون .
سلام دوستان نمیدونم چرا این برنامه جواب نمیده دوستان اگ محبت کنند یه نگاهی بیندازند ببینند مشکل از کجاست ممنون میشم .
میخام اگ مقدار تکست 1 بیشتر از تکست 2 شد برد سراغ تکست 4 و 5 وهمین برنامه برا این دو اگه شد برود سراغ دوتا تکست دیگر ممنون .
آخرین ویرایش به وسیله mahdi.fa : یک شنبه 02 آبان 1395 در 17:33 عصر
دوستان کارم گیر افتاده خیلی وقته منتظرم خواهشا یکی ی نگاهی بندازه مشکل از کجاس خواهش
من سورس رو دانلود کردم اما متوجه نشدم چیکار میخای بکنی و تو سورس هم متوجه نشدم
ممنون از زحمتتون ، این سورس جدید رو ک گزاشتم رو بررسی کنید من میخوم جمع ردیف ها رو محدود کنم یعنی اینکه مثلا شروع کنه از 1 تا 10 رو یکی یکی اضافه کنه بعد که به عدد 10 رسید بره سراغ دوتا تکست بعدی و اون دو تا رو یکی یکی جمع کنه مثلا تکست سوم از 70 شروع میشه تا 90 بعد دوباره که به عدد 90 رسید بره سراغ دوتا تکست بعدی و اون ها رو جمع کنه مثلا تکست 5 و 6 از 120 شروع میشه تا 160 وهمینطور برای دوتای بعدی ممنون از لطفتون اگ ممکنه زود کارم گیره.
آخرین ویرایش به وسیله mahdi.fa : دوشنبه 03 آبان 1395 در 14:38 عصر
سلام نمونه کد و سورس برنامه
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
اینم سورس
خدا کنه منظورت رو درست گرفته باشم
ممنون اقا عیسی بابت اینکه وقت گزاشتید اما منظورم این نبود ببینید من رو تصویر نشون میدم
jm.jpg
ببینید من فقط اعداد این چند ستون که انتخاب کردم رو میخام ، حالا من با وارد کردن عدد اول و انتهای ستون اول که در این تصویر می شود 1 - 10 میخوام یکی یکی عدد بهم بده تا اینکه به عدد انتها برسد موقعی که رسید بره سراغ ستون انتخاب شده ی بعدی که عدد اول و انتهای اون رو مشخص کردم 31-40 و همینطور برای ستون های سوم و چهارم امیدوارم منظورم رو درست رسونده باشم
سلام
فایل پیوست ببین
دو حالت وجود داره
1- اعداد پش سر هم باشن : 1.2.3.4.5.6.....
که در این حالت با افزودن یک واحد به مقدار قبلی به نتیجه میرسیم
2- اعداد ردیف هم نیاشند : 1.5.6.3.2.8.9.4.2.12.36.64.65.32.....
که در حالت باید از ایندکس سلول یا شیعی که اعداد در انها وجود داره استفاده کرد
در فایل پیوست از روش اول استفاده شده
معذرت میخوام اگ بخوام شماره ها رو درهم بزنه باید چکار کنم
بعد با چه کدی میتونم دیتام رو صعودی به نزولی تنظیم کنم
دوستان من از این کد برای سورت کردن استفاده میکنم
Adodc1.Refresh
Adodc1.Recordset.Sort = ("radif")
اما این کد میاد اول هرچی که اول 1 باشه رو نشون میده یعنی 1 ، 10 ، 101 ، 2 ،20 ممنون میشم مشکلم رو حل کنید.
نوع فیلد ردیف چی هست ؟ به Number تغیر بده فیلد ردیفت رو