snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Public Class Form1
Private Sub TbinfoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TbinfoBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbInfoDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbInfoDataSet.tbinfo' table. You can move, or remove it, as needed.
Me.TbinfoTableAdapter.Fill(Me.DbInfoDataSet.tbinfo)
End Sub
Private Sub TbinfoBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim search As String = txtsearch.Text
Me.TblinfoTableAdapter.FillBySearchSN(Me.DbInfoDataSet.tblinfo, search, search)
End Sub
Private Sub textsearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textsearch.TextChanged
End Sub
End Class