datasetform.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 14 行

Public Class DataSetForm

    Private Sub DataSetForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If ProductsDataSetUtil.DesignerUtil.IsRunTime Then
            'TODO: Delete this line of code to remove the default AutoFill for 'ProductsDataSet.Product'.
            Me.ProductTableAdapter.Fill(Me.ProductsDataSet.Product)
        End If
        If ProductsDataSetUtil.DesignerUtil.IsRunTime Then
            'TODO: Delete this line of code to remove the default AutoFill for 'ProductsDataSet.ProductCategory'.
            Me.ProductCategoryTableAdapter.Fill(Me.ProductsDataSet.ProductCategory)
        End If

    End Sub
End Class