clsreport.vb

来自「一个很不错的实验室管理系统,用vb+sql编写,功能强大,界面美观」· VB 代码 · 共 22 行

'实验报告类
Public Class clsReport
    Inherits clsBiz
    '函数名称:DisplayInHTMLInput
    '函数功能:在aspx页面中的HtmlInputText中显示数据库中的内容
    '输入参数:strSql查询数据库的语句
    Public Sub DisplayInHTMLInput(ByVal strSql As String)
        Dim objHtmlInputText As HtmlInputText
        PubDataAdapter.SelectCommand.CommandText = strSql
        PubDataAdapter.Fill(PubDataSet, "tblForDisplay")
        Try
            With PubDataSet.Tables("tblForDisplay")
                For i = 0 To .Columns.Count - 1
                    objHtmlInputText = Me.Controls(1).FindControl(.Columns(i).ColumnName)
                    objHtmlInputText.Value = .Rows(0)(i)
                Next
            End With
        Catch objException As Exception
        End Try
    End Sub
End Class