queryresultsform.vb

讲解如何实现从数据库同步下载数据以及在窗口上显示数据

Imports System.Data.Common

Public Class QueryResultsForm
    Friend RowsReturned As Integer = -1
    Friend Sub ShowResults(ByVal Caption As String, ByVal DataReader As DbDataReader)
        Me.Text = Caption
        Dim tbl As New DataTable()
        tbl.Load(DataReader)
        RowsReturned = tbl.Rows.Count
        grid.DataSource = tbl
        Show()
    End Sub
End Class