merchandiseform.vb

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

Public Class MerchandiseForm

    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 MerchandiseForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MySaleDataSet.商品信息”中。您可以根据需要移动或移除它。
        Me.商品信息TableAdapter.Fill(Me.MySaleDataSet.商品信息)
 
    End Sub

    Private Sub BindingNavigatorAddNewItem_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BindingNavigatorAddNewItem.MouseUp
        Me.累计采购量TextBox.Text = "0"
        Me.累计销售量TextBox.Text = "0"
    End Sub
End Class