productcategoriesform.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

Public Class ProductCategoriesForm

    Private ProductCategoryResultSet As SQLCEDataSourceQuickUI.ProductCategoryResultSet
    Private Sub ProductCategoriesForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: Delete this line of code to remove the default AutoFill for 'SQLCEDataSourceQuickUI.ProductCategoryResultSet'.
        ProductCategoryResultSet = New SQLCEDataSourceQuickUI.ProductCategoryResultSet
        ProductCategoryResultSet.Bind(Me.ProductCategoryResultSetBindingSource)

    End Sub

    Private Sub ProductCategoryResultSetDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCategoryResultSetDataGrid.Click
        ShowEditDialog()
    End Sub

    Private Sub newMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newMenuItem.Click
        ProductCategoryResultSetBindingSource.AddNew()
        ShowEditDialog()
    End Sub

    Private Function ShowEditDialog()
        Dim productcategoryEditViewDialog As ProductCategoryEditViewDialog = _
        productcategoryEditViewDialog.Instance(Me.ProductCategoryResultSetBindingSource)
        productcategoryEditViewDialog.ShowDialog()

    End Function
End Class