การนำ คำนวณจำนวนตัวเลขใน DataGridView หลัง Select VB.Net
Code Sub showdatatotal()
Try
Dim strselect As String = " select p.p_codepro,w.woo_namepro,p.p_pi,p.p_qty,w.woo_pro,w.woo_sortname,w.woo_std,p.p_amt from MTsum p left join MTbomwood w on w.woo_code=p.p_codepro "
connection()
dsproducttotal.Clear()
With da
.SelectCommand = New SqlCommand(strselect, conn)
.Fill(dsproducttotal, "MTsum")
End With
With dtgtotal
.DataSource = dsproducttotal.Tables("MTsum")
.Columns(0).HeaderText = "รหัสสินค้า"
.Columns(1).HeaderText = "ชื่อสินค้า"
.Columns(2).HeaderText = "PI NO."
.Columns(3).HeaderText = "จน.Order"
.Columns(4).HeaderText = "รหัสวัตถุดิบ"
.Columns(5).HeaderText = "รายการวัตถุดิบ"
.Columns(6).HeaderText = "จน/ชุด"
.Columns(7).HeaderText = "จน.ทั้งหมด"
.Columns(0).Width = 100
.Columns(1).Width = 240
.Columns(2).Width = 90
.Columns(3).Width = 90
.Columns(4).Width = 100
.Columns(5).Width = 180
.Columns(6).Width = 90
.Columns(7).Width = 90
dtgtotal.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
dtgtotal.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
' dtgemp.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
' dtgdata.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
'สามีบอกว่า อันนี้เอาไว้ lock การ filter short
.Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable
.AlternatingRowsDefaultCellStyle.SelectionBackColor = Color.DarkTurquoise
.AlternatingRowsDefaultCellStyle.SelectionForeColor = Color.Black
.DefaultCellStyle.SelectionBackColor = Color.DarkTurquoise
.DefaultCellStyle.SelectionForeColor = Color.Black
.AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
.AllowUserToAddRows = False
.AllowUserToResizeRows = False
.AllowUserToResizeColumns = False
.ReadOnly = True
.Show()
End With
Catch ex As Exception
End Try
End Sub
Tag .NET, Ms SQL Server 2008, VB.NET
Date :
2015-10-21 15:15:57By :
nunan13View :
2302Reply :
6
ลองค้นคำว่า datagrid view cell end edit ดูครับ
Date :
2015-10-21 15:21:34By :
lamaka.tor
อันที่จริงใช้ INNER JOIN
Date :
2015-10-22 10:00:22By :
mr.win
Sub Viewbom()
'*** DataTable ***'
' For Each row As DataGridViewRow In dtgtotal.Rows
Dim dtAdapter As SqlDataAdapter
Dim dt As New DataTable
Dim a As Double = 0
Dim b As Double = 0
Dim c As Double = 0
strSQL = " select p.p_codepro,w.woo_namepro,p.p_pi,p.p_qty,w.woo_pro,w.woo_sortname,w.woo_std,p.p_amt from MTsum p left join MTbomwood w on w.woo_code=p.p_codepro "
connection()
dtAdapter = New SqlDataAdapter(strSQL, conn)
dtAdapter.Fill(dt)
'If dt.Rows.Count > 0 Then
For Each row As DataGridViewRow In dtgtotal.Rows
a = dt.Rows(0)("p_qty")
b = dt.Rows(0)("woo_std")
c = a * b
'dt.Rows(0)("p_amt") = c
dtgtotal.CurrentRow.Cells(7).Value = c
' MsgBox(c)
'MsgBox(frmlogin.txtname.Text)
Next
' End If
conn.Close()
End Sub
Date :
2015-10-24 14:38:55By :
nunan13
ทำได้แว้วค๊าาาาาาาาาา อิอิ
Date :
2015-10-24 15:03:33By :
nunan13
Date :
2015-10-26 08:31:36By :
lamaka.tor
Date :
2015-10-26 08:59:58By :
mr.win
Server 04
Load balance : Server 04
