جمع مقدار عددی چند تکست باکس و نمایش آنها

[djhooman]

سلام دوستان

من درمورد سوالم گشتم ، یه سری کد ها پیدا کردم اما باز هم اررور میده .

من یه فرم دارم که به بانک اطلاعاتیم وصله ، بانکمم SQL هست ، تمام فیلد های توی بانکم از نوع INT64 هست ، چون ممکنه مقدار عددهام زیاد باشه .

9 تا تکست باکس دارم ، میخوام مقدار این تکست باکس ها با هم جمع بشه و توی یه لیبیل باکس نشون بده .

یعنی مقدار T1,T2,T3,T4,T5,T6,T7,T8,T9 رو توی Lable بریزه و نشون بده .

امتحان کردم دیدم اگه سه تا تکست باکس رو با هم جمع کنم ، مقدار رو نشون میده توی لیبلم .



حالا موقعی که تعداد تکست باکس هارو زیاد میکنم اررور میده :




عکس اررور هم ضمیمه کردم ....

[mo.esmp]

اینطوری که از عکس بر میاد t1 رو به int64 تبدیل کردی و بقیه رو نه.

[faravani]

با سلام
باید از تابع VAL که مال خود دات نته استفاده کنی امتحان کن ببین چی میشه

[djhooman]

یعنی چی ؟

میشه بیشتر توضیح بدید ؟؟؟؟؟
command استفاده از تابع val چجوریه ؟

[mansourii]

TextBox14.Text = Ctype(Val(textbox1.Text) + (textbox2.Text) + Val(textbox3.Text) + (textbox4.text),integer)TextBox14.Text = Val(textbox1.Text) + (textbox2.Text) + Val(textbox3.Text) + (textbox4.text),integer)

ببين مشكلت حل ميشه.

[mansourii]

یعنی چی ؟

میشه بیشتر توضیح بدید ؟؟؟؟؟
command استفاده از تابع val چجوریه ؟

TextBox14.Text = Ctype(Val(textbox1.Text) + (textbox2.Text) + Val(textbox3.Text) + (textbox4.text),integer)TextBox14.Text = Val(textbox1.Text) + (textbox2.Text) + Val(textbox3.Text) + (textbox4.text),integer)

اون قبليه خيلي معلوم نبود چي به چيه اين بهتره!

[djhooman]

کدی که شما دادید و زدم اررور داد
این اررور هم داد :

Conversion from string "" to type 'Double' is not valid.

[djhooman]

کدی که دادیدو زدم اررور میده

Conversion from string "" to type 'Double' is not valid.

[mansourii]

به اين برنامه يك نگاه بندازي مشكل حل ميشه!
http://parsaspace.com/files/2811108884/WindowsApplication1.rar.html

واقا كه سايت مضخرفي شده! براي آپلود كردن بايد به يك سايت ديگه مراجعه كنيم.
هيچ امكاناتي نداره! اين چه وضعشه!

[djhooman]

ممنون ! کار کرد !!!!!!!!!!!!!!!!

دستتون درد نکنه

فقط یه سوال دیگه ...

چجوری 3 رقم 3رقم اعدادم و جدا کنم در حین تایپ کردن ؟

[djhooman]

ممنون ! کار کرد !!!!!!!!!!!!!!!!

دستتون درد نکنه

فقط یه سوال دیگه ...

چجوری 3 رقم 3رقم اعدادم و جدا کنم در حین تایپ کردن ؟

[ali_najari]

دوست عزيز توي وبلاگ من يه سري بزنيد ميتونيد پيدا كنيد:



Public Function Mask_Adad(ByVal Number As String) As String
Dim strAux As String
Dim strComma As String
Dim strPeriod As String
strPeriod = ""
Number = Number.Replace(",", "")
If InStr(Number, ".") > 0 Then
strAux = Mid(Number, 1, InStr(Number, ".") - 1)
strPeriod = Mid(Number, InStr(Number, "."))
Else
strAux = Number
End If
strComma = strAux
strAux = ""
While strComma.Length > 3
strAux = "," & Mid(strComma, strComma.Length - 2, 3) & strAux
strComma = Mid(strComma, 1, strComma.Length - 3)
End While
strAux = strComma & strAux & strPeriod
If Mid(strAux, 1, 1) = "," Then strAux = Mid(strAux, 2)
Sender.Text = strAux
SendKeys.SendWait("{End}")
Return strAux
End Function

[hero4000]

به اين برنامه يك نگاه بندازي مشكل حل ميشه!
http://parsaspace.com/files/2811108884/WindowsApplication1.rar.html

واقا كه سايت مضخرفي شده! براي آپلود كردن بايد به يك سايت ديگه مراجعه كنيم.
هيچ امكاناتي نداره! اين چه وضعشه!

دوست عزيز شما از حالت پيشرفته پاسخگويي استفاده کنيد مشکلتون حل ميشه

http://barnamenevis.org/newreply.php?do=newreply&p=1163398

[mansourii]

از اينكه مشكل اول حل شد واقا خوشحالم


اما درمورد سوال دوم

به اين برنامه يك نگاه بندازيد.

[mahdi1373]

خوب، مگه چیه؟