01.
Public
Class
Form5
02.
03.
Private
Sub
ใบเสร็จลูกค้าBindingNavigatorSaveItem_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
04.
Me
.Validate()
05.
Me
.ใบเสร็จลูกค้าBindingSource.EndEdit()
06.
Me
.TableAdapterManager.UpdateAll(
Me
.DatabasePRODataSet1)
07.
08.
End
Sub
09.
10.
Private
Sub
Form5_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
11.
12.
Me
.ใบเสร็จลูกค้าTableAdapter.Fill(
Me
.DatabasePRODataSet1.ใบเสร็จลูกค้า)
13.
End
Sub
14.
15.
Private
Sub
Button2_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button2.Click
16.
ใบเสร็จลูกค้าBindingSource.AddNew()
17.
End
Sub
18.
19.
Private
Sub
Button3_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button3.Click
20.
ใบเสร็จลูกค้าBindingSource.EndEdit()
21.
ใบเสร็จลูกค้าTableAdapter.Update(
Me
.DatabasePRODataSet1.ใบเสร็จลูกค้า)
22.
End
Sub
23.
24.
Private
Sub
Button4_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button4.Click
25.
ใบเสร็จลูกค้าBindingSource.RemoveCurrent()
26.
ใบเสร็จลูกค้าBindingSource.EndEdit()
27.
ใบเสร็จลูกค้าTableAdapter.Update(
Me
.DatabasePRODataSet1.ใบเสร็จลูกค้า)
28.
End
Sub
29.
30.
End
Class