'ซับรูทีน RefreshData()แสดงข้อมูลล่าสุดมายังฟอร์ม
Sub RefreshData()
Dim sqlMember As String = "SELECT member.*, address.* FROM address INNER JOIN member ON address.Address_id = member.Address_id ORDER BY Member_id DESC" 'เรียกดูข้อมูลทั้งหมดจากตาราง student
'เคลียร์ค่าข้อมูลเดิม ก่อนการรับค่าล่าสุด
If ds.Tables.Contains("member") Then
ds.Tables("member").Clear()
End If
da.SelectCommand.CommandText = sqlMember 'ส่งค่าคำสั่ง sqlMember ให้กับ da
'ตั้งชื่อให้กับตารางที่เราอ่านค่ามาได้ เก็บไว้ใน DataSet
da.Fill(ds, "member")
'นำค่าที่เก็บอยู่ใน DataSet ไปให้กับ DataTable โดยตั้งชื่อว่า member
dt = ds.Tables("member")
Call HeaderText() 'เรียกซับรูทีน HeaderText() ทำงาน
If ds.Tables("Member").Rows.Count <> 0 Then 'ตรวจสอบเร็ดคอร์ดในตาราง
'เรียกใช้งานคำสั่งที่กำหนดไว้
Call Clrallbinding() 'เรียกซับรูทีน Clrallbinding() ทำงาน
Call MakeAllBinding() 'เรียกซับรูทีน MakeAllBinding() ทำงาน
Call Locked() 'เรียกซับรูทีน Locked() ทำงาน
End If
End Sub