supplierform.vb

来自「一个商品销售管理系统」· VB 代码 · 共 15 行

Public Class SupplierForm

    Private Sub 供应商信息BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 供应商信息BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.供应商信息BindingSource.EndEdit()
        Me.供应商信息TableAdapter.Update(Me.MySaleDataSet.供应商信息)

    End Sub

    Private Sub SupplierForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MySaleDataSet.供应商信息”中。您可以根据需要移动或移除它。
        Me.供应商信息TableAdapter.Fill(Me.MySaleDataSet.供应商信息)

    End Sub
End Class