queryresultsform.vb

来自「讲解如何实现从数据库同步下载数据以及在窗口上显示数据」· VB 代码 · 共 13 行

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