joinquerydatasetform.vb

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

Public Class JOINQueryDataSetForm

    Private Sub JOINQueryDataSetForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Get a DataTable filled with the results of a query with a JOIN
        Dim ds As JOINQueryDataSet = New JOINQueryDataSet()
        Dim ta As JOINQueryDataSetTableAdapters.ProductsCategoryTableAdapter = _
                New JOINQueryDataSetTableAdapters.ProductsCategoryTableAdapter()
        ta.Fill(ds.ProductsCategory)

        ' Fill a ListView control with the results
        For Each row As JOINQueryDataSet.ProductsCategoryRow In ds.ProductsCategory
            ' Simple list in the format: <product name> - <product category mame>
            listView1.Items.Add(New ListViewItem(row.Name + " - " + row.CategoryName))
        Next
    End Sub
End Class