Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > รบกวนผู้รู้ช่วยหน่อยนะครับ มีปัญหาเกี่ยวกับตัวเลขที่แสดงใน vb ครับ สำคัญกับผมมากๆเลยครับ

รบกวนผู้รู้ช่วยหน่อยนะครับ มีปัญหาเกี่ยวกับตัวเลขที่แสดงใน vb ครับ สำคัญกับผมมากๆเลยครับ

เริ่มหัวข้อใหม่

Guest

ผมใช้ vb2008+sql2005 เป็นโปรแกรมร้านขายเครื่องใช้ไฟฟ้า ในหน้าของการขายเมื่อเลือกประเภทลูกค้า เลือกสินค้า ราคาก็จะถูกแสดงใน datagrid และ Panel9 ซึ่งใน Panel9
จะมี TextBox 3 อัน อันแรกคือ 1 ราคารวม (txt_SUM) 2 เปอเซน (txt_vat) และ 3 ยอดรวมสุทธิ (txt_SUM3) ปัญหาคือ ผมอยากให้
ยอดรวมสุทธิ (txt_SUM3) มีเครื่องหมาย , คั่นตรงหลักร้อย
เหมือนกับ ราคารวม (txt_SUM) โค้ดเป็นแบบนี้นะครับ

Private Sub Panel9_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel9.Paint

txt_SUM.Text = FormatNumber(txt_SUM.Text, 0)

txt_SUM3.Text = FormatNumber(txt_SUM3.Text, 0) <<<ผมลองใส่โค๊ดเพิ่มโดยเปลี่ยน จาก txt_SUM เป็น txt_SUM3 แต่พอใส่บรรทัดนี้ ทั้งราคารวม (txt_SUM) และยอดรวมสุทธิ (txt_SUM3)จะไม่มีเครื่องหมาย , คั่นที่หลักร้อย

End Sub

ปล.ตรง ยอดรวมสุทธิ (txt_SUM3) มีทศนิยม ด้วยนะครับ เช่น ยอดรวมสุทธิอาจจะเท่ากับ 1200.5
คือ ราคารวม (txt_SUM) - เปอเซน (txt_vat) = ยอดรวมสุทธิ (txt_SUM3)
ตรง FormatNumber(txt_SUM3.Text, 0) << อาจไม่ใช่ 0 รึป่าวครับ
รบกวนผู้รู้ตอบให้ทีนะครับ ขอบคุณครับ
sale

Tag : .NET, VB.NET

Date : 2011-12-14 12:01:53

By : off

View : 1492

Reply : 12

No. 1

Guest

Me.txt_SUM3.Text = FormatNumber(Me.txt_SUM.Text - ((Me.txt_SUM.Text * Me.txt_vat.Text) / 100), 2)

Date : 2011-12-14 13:17:06

By : Thep

No. 2

Mr.com

โพสกระทู้ ( 232 )
บทความ ( 0 )

Code (VB.NET)

sum.ToString("#,###.00")

Date : 2011-12-14 13:22:46

By : Testprogram

No. 3

KaimuK

โพสกระทู้ ( 437 )
บทความ ( 0 )

ความคิดเห็นที่ 2 ก็ใช้ได้แล้วครับ แต่เพิ่มเติมให้นิดนึงในกรณีที่ จขกท. อยากใช้ Function เดิม
ให้เขียนประมาณนี้ครับ

Code (VB.NET)

FormatNumber(txt_SUM3.Text, 2, , , TriState.True)

อธิบายเพิ่มเติมสำหรับเจ้า FormatNumber Function

FormatNumber จะมี Parameter ทั้งหมด 5 ตัว นะครับ

รูปแบบประมาณนี้

Code (VB.NET)

FormatNumber(1, 2, 3, 4, 5)

1 = ตัวเลขที่เราต้องการเอามากำหนด Format (มันรับค่าเป็น Object แต่ก็ตัวเลขนั้นแหละ)
2 = จำนวนจุดทศนิยมที่เราต้องการ (รับค่าเป็น Numeric)
3 = จะให้แสดงเลข 0 หรือไม่หายหลังจากปัดเศษแล้วค่ามันเท่ากับ 0 (รับค่าเป็น TriState)
TriState.True = โชว์ 0
TriState.False = ไม่โชว์อะไรเลย
TriState.UseDefault = ตาม Regional Settings
4 = จะให้ทำวงเล็บหรือไม่หากค่าติดลบ (รับค่าเป็น TriState)
TriState.True = แสดงวงเล็บถ้าค่าติดลบ
TriState.False = แสดงเป็นค่าติดลบธรรมดา
TriState.UseDefault = ตาม Regional Settings
5 = ให้แสดง , หรือไม่ (รับค่าเป็น TriState)
TriState.True = แสดง
TriState.False = ไม่แสดง
TriState.UseDefault = ตาม Regional Settings

ลองๆ เอาไปเล่นดูครับ

Date : 2011-12-14 13:49:33

By : kaimuk

No. 4

Guest

ยังไม่ได้เลยครับ ใส่โค๊ดไปแบบนี้

Private Sub Panel9_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel9.Paint

txt_SUM.Text = FormatNumber(txt_SUM.Text, 0) << ถ้าใส่บรรทัดนี้อย่างเดียวtxt_SUMจะมี , คั่น แต่txt_SUM3จะไม่มี , คั่น
txt_SUM3.Text = FormatNumber(txt_SUM3.Text, 2, , , TriState.True) << ถ้าใส่บรรทัดนี้ด้วยจะไม่มี , คั่นทั้งtxt_SUMและtxt_SUM3

End Sub

txt_SUM3 น่าจะทศนิยมหนึ่งตำแหน่งครับ คืออยากให้ออกมาประมาณนี้ >>>>>> 1,164.5 หรือถ้าไม่มีเศษก็ 1,164

ช่วยทีนะครับ ติดอยู่แค่ txt_SUM3 นี่เเหละครับ มันสำพันกันที่ txt_SUM - txt_vat = txt_SUM3 ใช่มั้ยครับ ผมอาจจะใส่โค๊ดผิดที่รึเปล่า นี่คือโค๊ดในส่วนของ ความสัมพันที่บอกเมื่อกี้นะครับ หรือผมต้องแทรกโค๊ดไว้ในส่วนนี้รึเปล่า ลองมั่วหมดแล้วไม่ได้ครับ

Sub SUM_AMOUNT()
Dim c_row As Integer = 0
c_row = DataGrid_Pro.Rows.Count
Dim i As Integer
Dim add As Double = 0
For i = 0 To c_row - 1
Dim a1 As Integer = 0
a1 = DataGrid_Pro.Rows(i).Cells(8).Value
add = add + a1

Next

txt_SUM.Text = add
<<<< เคยลองเอามาแทรกไว้บรรทัดนี้ ก็เหมือนเดิมคือถ้าFormat SUM3ด้วยเมื่อไหร่ มันจะไม่ออกทั้งคู่
txt_SUM3.Text = CDbl(txt_SUM.Text) - ((CDbl(txt_vat.Text) / 100) * CDbl(txt_SUM.Text))
<<<< บรรทัดนี้ก็เคยลองแทรก ผลก็เหมือนเดิมเลยครับ

End Sub

Date : 2011-12-14 14:33:15

By : off

No. 5

KaimuK

โพสกระทู้ ( 437 )
บทความ ( 0 )

แปะ Code ได้เปล่าครับอาจจะผิดที่ Logic ก็ได้

Date : 2011-12-14 15:15:08

By : kaimuk

No. 6

Guest

ยังไงครับ ไม่เข้าใจครับ ช่วยชี้ทางหน่อยครับ

Date : 2011-12-14 16:20:00

By : off

No. 7

KaimuK

โพสกระทู้ ( 437 )
บทความ ( 0 )

Copy Code ที่ จขกท. เขียนมาดูครับ
เอาเฉพาะส่วนที่เกี่ยวข้องกับตรงนี้อ่ะครับ

Date : 2011-12-14 16:37:40

By : kaimuk

No. 8

Guest

ประมาณนี้ครับ ช่วยทีนะครับ
Sub SUM_AMOUNT()
Dim c_row As Integer = 0
c_row = DataGrid_Pro.Rows.Count
Dim i As Integer
Dim add As Double = 0
For i = 0 To c_row - 1
Dim a1 As Integer = 0
a1 = DataGrid_Pro.Rows(i).Cells(8).Value
add = add + a1

Next

txt_SUM.Text = add
txt_SUM3.Text = CDbl(txt_SUM.Text) - ((CDbl(txt_vat.Text) / 100) * CDbl(txt_SUM.Text))

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If DataGrid_Pro.Rows.Count <> 0 Then
DataGrid_Pro.Rows.RemoveAt(DataGrid_Pro.CurrentRow.Index)

End If
Call SUM_AMOUNT()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
txt_ID_Pro.Text = ""
TextBox4.Text = ""
txt_Name_pro.Text = ""
txt_SUM.Text = "0"
txt_SUM3.Text = "0"
txt_All.Text = ""
txt_prices.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
txt_amount.Text = ""
DataGrid_Pro.Rows.Clear()

End Sub

Sub clr()
txt_ID_Pro.Text = ""
TextBox4.Text = ""
txt_Name_pro.Text = ""
txt_amount.Text = ""
txt_All.Text = ""
txt_prices.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
DataGrid_Pro.Rows.Clear()
TextBox9.Text = ""
TextBox8.Text = ""
TextBox2.Text = ""
txt_id.Text = ""
txt_SUM.Text = "0"
txt_SUM3.Text = "0"
' txt_Date.Text = ""
TextBox1.Text = ""
TextBox3.Text = ""

txt_amount.Text = ""
txt_ID_Pro.Text = ""
txt_Name_pro.Text = ""

txt_All.Text = ""
txt_prices.Text = ""
DataGrid_Pro.Rows.Clear()

End Sub

Date : 2011-12-14 16:56:35

By : off

No. 9

Guest

อันนี้คือเอาคำสั่ง FormatNumber ที่ใช้ Format txt_SUM กับ txt_SUM3 ออกไปหมดแล้วนะครับ

Date : 2011-12-14 16:59:11

By : off

No. 10

Guest

Private Sub Button2 กับ Private Sub Button7 น่าจะไม่เกี่ยวครับขอโทดทีครับ ดูอันนี้ละกันนะครับ Button8 คือปุ่มเพิ่มข้อมูล ก่อนจะแสดงลงใน Panel9 ที่มี txt_SUM กับ txt_SUM3

Sub SUM_AMOUNT()
Dim c_row As Integer = 0
c_row = DataGrid_Pro.Rows.Count
Dim i As Integer
Dim add As Double = 0
For i = 0 To c_row - 1
Dim a1 As Integer = 0
a1 = DataGrid_Pro.Rows(i).Cells(8).Value
add = add + a1

Next

txt_SUM.Text = add
txt_SUM3.Text = CDbl(txt_SUM.Text) - ((CDbl(txt_vat.Text) / 100) * CDbl(txt_SUM.Text))

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Call INSERT_DataOn_G()
' If M_ConnStr.c_TMP12 = "1" Then

' txt_amount.Text = "1"
'TextBox6.Focus()
'txt_amount.Enabled = False
'txt_ID_Pro.Text = ""
'TextBox4.Text = ""
'txt_Name_pro.Text = ""
'txt_SUM.Text = "0"
'txt_SUM3.Text = "0"
'txt_All.Text = ""
'txt_prices.Text = ""
'TextBox5.Text = ""
'TextBox6.Text = ""
'txt_amount.Text = ""

'Else
'txt_amount.Enabled = True
'txt_amount.Focus()
'End If
End Sub

Date : 2011-12-14 17:05:39

By : off

No. 11

Guest

txt_SUM3.Text = FormatNumber(CDbl(txt_SUM.Text) - ((CDbl(txt_vat.Text) / 100) * CDbl(txt_SUM.Text)),1)

ลองดูครับ

Date : 2011-12-14 18:31:44

By : Thep

No. 12

Guest

ได้แล้วครั No. 11 คุณสุดยอดจริงๆ พรุ่งนี้ผมต้องส่งงานแล้ว ขอบคุณมากๆครับ และทุกๆคนที่เข้ามาตอบด้วยนะครับ ทุกคนมีส่วนทำให้ผมทำได้ สำคัญกับผมมากจริงๆ ขอบคุณทุกคนมากๆนะครับ

.>>>>>>>>>>สุดยอดดดดดด>>>>>>>>>> www.thaicreate.com <<<<<<<<<<<<<สุดยอดดดดด<<<<<<<<<<<<<,

Date : 2011-12-14 19:12:09

By : off

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : รบกวนผู้รู้ช่วยหน่อยนะครับ มีปัญหาเกี่ยวกับตัวเลขที่แสดงใน vb ครับ สำคัญกับผมมากๆเลยครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก