 |
| |
รบกวนพี่ๆเพื่อนๆอีกครั้งนะครับ เกี่ยวกับการแสดงตัวเลขในดาต้าการ์ด ช่วยทีนะครับ ถ้าผ่านตรงนี้ ก็จะผ่านงานแล้วครับผม |
| |
 |
|
|
 |
 |
|
ตอนกด เพิ่มสินค้า
ตอนที่ add ราคา ลงใน gridview ให้ใส่ FormatNumber(price, 0)
ลองดูครับ
|
 |
 |
 |
 |
| Date :
2011-12-07 17:14:07 |
By :
Thep |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ใส่ตรงไหนอ่ะ คัรบ ในโค๊ดใช่มั้ยครับ
|
| |
|
|
| |
| Date :
2011-12-07 18:28:57 |
By :
off |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มีใครแนะนำได้อีกมั้ยครับ ผมลองใส่ FormatNumber(price, 0)ดูเหมือนผมจะใส่ยังไงก็ไม่ตรงจุด เพราะในส่วนของการขาย โคดมันเยอะมากจริงๆครับ ผมคิดว่ามันอาจตั้งค่าได้โดย ไม่ต้องใส่ในโค๊ดรึป่าวครับ แบบในรูปตัวอย่างนี้นะครับ ประมานว่าปรับจาก DatagridViewCellStyleBuilder อ่ะครับ ผมก็ลองเปลี่ยนโน้น เปลี่ยนนี่ มนกรอบสีแดงอ่ะครับ
|
| |
|
|
| |
| Date :
2011-12-07 21:35:45 |
By :
off |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตอนที่กดปุ่ม ( Code ใน Program ตอนกดปุ่ม )
มันจะเอาค่า รหัส สี ยี่ห้อ ประเภท ฯลฯ ลงมา เพิ่มใน gridview พอในส่วนของราคา ก็ให้ใส่ FormatNumber(price, 0)
Ex.
Dim row As DataRow = dsempty.Tables("ets_empty_table").NewRow
row("รหัสสินค้า") = id
row("รุ่นสินค้า") = Model
....
row("ราคาต่อหน่วย") = FormatNumber(price, 0)
dsempty.Tables("ets_empty_table").Rows.Add(row)
|
| |
|
|
| |
| Date :
2011-12-08 09:59:00 |
By :
Thep |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองดูโค๊ดให้หน่อยนะครับ ว่าผมควรแทรกตรงไหน ถึงจะทำให้มีเครื่องหมาย , กั้นตรงหลักร้อย (ราคา) โค๊ดนี้น่าจะเป็นส่วนของ Insert ข้อมูล ลงใน GridView
Code (VB.NET)
Sub INSERT_DataOn_G()
Dim count_row As Integer = 0
Dim count As Integer = 0
Dim find As Boolean = False
If txt_amount.Text.Length = 0 Then
MsgBox("ยังไม่ได้ป้อนจำนวนสินค้า ", vbCritical, "เตือนการทำงาน")
txt_amount.Focus()
Exit Sub
End If
'If TextBox6.Text.Length <> 15 Then
' MsgBox("กรอก IME ไม่ถูกต้อง ", vbCritical, "เตือนการทำงาน")
' TextBox6.Focus()
' Exit Sub
'End If
If txt_ID_Pro.Text = "" Then
MsgBox("ยังไม่ได้เลือกสินค้า ", vbCritical, "เตือนการทำงาน")
Exit Sub
End If
If CDbl(txt_All.Text) < CDbl(txt_amount.Text) Then
MsgBox("สินค้ามีจำนวนไม่พอ ", vbCritical, "เตือนการทำงาน")
txt_amount.Focus()
Exit Sub
End If
If txt_sn.Text = "1" Then
M_ConnStr.c_Name_Pro_Key = txt_Name_pro.Text
M_ConnStr.c_Name_Number_Key = txt_amount.Text
frm_Sale_Serial_No_Key.ShowDialog()
If M_ConnStr.c_Name_CH_Key = "0" Then
Exit Sub
End If
Else
End If
If CH_ITEM(txt_ID_Pro.Text) = True Then
' MsgBox("รายการสินค้าซ้ำ ", vbCritical, "เตือนการทำงาน")
' Exit Sub
End If
If txt_sn.Text = "1" Then
For i = 0 To UBound(M_ConnStr.c_Serial_key)
If M_ConnStr.c_Serial_key(i) = "" Then
Exit For
End If
' MessageBox.Show(M_ConnStr.c_Serial_key(i))
count = DataGrid_Pro.Rows.Count
count_row = DataGrid_Pro.Rows.Count
DataGrid_Pro.Rows.Add()
DataGrid_Pro.Rows(count_row).Cells(0).Value = txt_ID_Pro.Text
DataGrid_Pro.Rows(count_row).Cells(1).Value = txt_Name_pro.Text
DataGrid_Pro.Rows(count_row).Cells(2).Value = TextBox4.Text
DataGrid_Pro.Rows(count_row).Cells(3).Value = TextBox7.Text
DataGrid_Pro.Rows(count_row).Cells(4).Value = TextBox5.Text
DataGrid_Pro.Rows(count_row).Cells(7).Value = "1"
DataGrid_Pro.Rows(count_row).Cells(6).Value = txt_prices.Text
DataGrid_Pro.Rows(count_row).Cells(8).Value = CDbl(1) * CDbl(txt_prices.Text)
DataGrid_Pro.Rows(count_row).Cells(10).Value = M_ConnStr.c_Serial_key(i)
DataGrid_Pro.Rows(count_row).Cells(10).Style.BackColor = Color.Green
DataGrid_Pro.Rows(count_row).Cells(11).Value = txt_Pro_Warrant.Text
DataGrid_Pro.Rows(count_row).Cells(12).Value = Date.Today.AddMonths(CInt(txt_Pro_Warrant.Text))
SUM_AMOUNT()
txt_All.Text = CDbl(txt_All.Text) - CDbl(1)
TextBox6.Text = ""
Next
Else
count = DataGrid_Pro.Rows.Count
count_row = DataGrid_Pro.Rows.Count
DataGrid_Pro.Rows.Add()
DataGrid_Pro.Rows(count_row).Cells(0).Value = txt_ID_Pro.Text
DataGrid_Pro.Rows(count_row).Cells(1).Value = txt_Name_pro.Text
DataGrid_Pro.Rows(count_row).Cells(2).Value = TextBox4.Text
DataGrid_Pro.Rows(count_row).Cells(3).Value = TextBox7.Text
DataGrid_Pro.Rows(count_row).Cells(4).Value = TextBox5.Text
DataGrid_Pro.Rows(count_row).Cells(7).Value = txt_amount.Text
DataGrid_Pro.Rows(count_row).Cells(6).Value = txt_prices.Text
DataGrid_Pro.Rows(count_row).Cells(8).Value = CDbl(txt_amount.Text) * CDbl(txt_prices.Text)
DataGrid_Pro.Rows(count_row).Cells(10).Value = ""
DataGrid_Pro.Rows(count_row).Cells(11).Value = ""
DataGrid_Pro.Rows(count_row).Cells(12).Value = Date.Today.AddMonths(CInt(0))
SUM_AMOUNT()
txt_All.Text = CDbl(txt_All.Text) - CDbl(txt_amount.Text)
TextBox6.Text = ""
'txt_amount.Text = ""
End If
End Sub
|
| |
|
|
| |
| Date :
2011-12-08 12:52:12 |
By :
off |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
DataGrid_Pro.Rows(count_row).Cells(6).Value = FormatNumber(txt_prices.Text,0)
ลองดูครับ
|
| |
|
|
| |
| Date :
2011-12-08 14:34:25 |
By :
Thep |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อีกนิดนะครับ ผมลองทำดู มีเครื่องหมาย , ขั้นแล้ว เรียบร้อย แต่เวลา กดบันทึกรายงาน มันขึ้นเตือน Error อ่ะครับ แล้วรายงานที่ออกมา ใน Crytalreport ก็ว่างเปล่าเลยครั บ ช่วยอีกนิดนะครับ
|
| |
|
|
| |
| Date :
2011-12-08 15:18:08 |
By :
off |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตอนนี้ได้แล้วครับ ขอบคุณมากครับ ขอบคุณจากใจจริง คุณรู้หรือไม่ว่าการตอบของคุณมีค่ากับผมมากมายจริงๆ ขอบคุณนะครับ ^^
|
| |
|
|
| |
| Date :
2011-12-08 15:33:49 |
By :
off |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตอนที่กดปุ่ม บันทึกการขาย
ค่าราคา ที่จะบันทึกลงฐานข้อมูล
ให้ , ทิ้งไป คือ replace(price,",","")
Ex.
insert into ETS_INVOICE_AIRPORT(id,name,rate,nonum) values(106,'test',30," & Replace(price, ",", "") & ")
|
| |
|
|
| |
| Date :
2011-12-08 15:43:55 |
By :
Thep |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
