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

[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/28111088...tion1.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/28111088...tion1.rar.html

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

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

[mansourii]

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


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

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

[mahdi1373]

خوب، مگه چیه؟