01.Private Sub LoadGridViewSizeData()
02. If IsNothing(Session("SizeTable")) Then
03. dt = New DataTable()
04. dt.Columns.Add(New DataColumn("TopWidth", GetType(String)))
05. dt.Columns.Add(New DataColumn("MidWidth", GetType(String)))
06. dt.Columns.Add(New DataColumn("BottomWidth", GetType(String)))
07. dt.Columns.Add(New DataColumn("WidthAVG", GetType(String)))
08. dt.Columns.Add(New DataColumn("LeftLength", GetType(String)))
09. dt.Columns.Add(New DataColumn("RigthLength", GetType(String)))
10. dt.Columns.Add(New DataColumn("LengthAVG", GetType(String)))
11. dt.Columns.Add(New DataColumn("SizeNote", GetType(String)))
12. Session("SizeTable") = dt
13. End If
14.
15. dt = DirectCast(Session("SizeTable"), DataTable)
16. gvS_LoadSize.DataSource = dt
17. gvS_LoadSize.DataBind()
18.End Sub
19.
20.Private Sub AddToTable()
21. Dim dr As DataRow = dt.NewRow
22.
23. dr("TopWidth") = txtPK_WidthTop.Text.Trim
24. dr("MidWidth") = txtPK_WidthMid.Text.Trim
25. dr("BottomWidth") = txtPK_WidthBottom.Text.Trim
26. dr("WidthAVG") = ((CType(txtPK_WidthTop.Text.Trim, Decimal) + CType(txtPK_WidthMid.Text.Trim, Decimal) + CType(txtPK_WidthBottom.Text.Trim, Decimal)) / 3).ToString("n2")
27. dr("LeftLength") = txtPK_LengthLeft.Text.Trim
28. dr("RigthLength") = txtPK_LengthRigth.Text.Trim
29. dr("LengthAVG") = ((CType(txtPK_LengthLeft.Text.Trim, Decimal) + CType(txtPK_LengthRigth.Text.Trim, Decimal)) / 2).ToString("n2")
30. dr("SizeNote") = txtPK_SizeNote.Text.Trim
31.
32. dt.Rows.Add(dr)
33. Session("SizeTable") = dt
34. LoadGridViewSizeData()
35. Reset()
36. txtPK_WidthTop.Focus()
37.End Sub
38.
39.Private Sub AddToDB()
40. iMAX = IIf(Count <= 0, 1, Count + 1)
41. If iMAX < 1000 Then
42. Session("PKID") = "PK" & CStr(Format(Now.Date.ToString("yyyyMMdd", New CultureInfo("en-US")))) & iMAX.ToString("000")
43. dt = DirectCast(Session("SizeTable"), DataTable)
44. For i = 0 To dt.Rows.Count - 1
45.
46. strSQL = "INSERT INTO Size (PK_ID,S_WIDTHTOP,S_WIDTHMID,S_WIDTHBOTTOM,S_LENGTHLEFT,S_LENGTHRIGTH,S_NOTE) VALUES ('" & Session("PKID").ToString() & "','" & dt.Rows(i)("TopWidth") & "','" & dt.Rows(i)("MidWidth") & "','" & dt.Rows(i)("BottomWidth") & "','" & dt.Rows(i)("LeftLength") & "','" & dt.Rows(i)("RigthLength") & "','" & dt.Rows(i)("SizeNote") & "')"
47. objCmd = New SqlCommand(strSQL, objConn)
48.
49. With objCmd
50. .Connection = objConn
51. .CommandText = strSQL
52. .CommandType = CommandType.Text
53. .ExecuteNonQuery()
54. End With
55. Next
56.
57. objConn.Close()
58. objConn = Nothing
59. MsgBox("บันทึกข้อมูลสำเร็จ")
60. End If
61.End Sub
