scmprint.vb

进销荐系统,用ASP做的,适合初学者拿来理解.

Public Class Print
    Public Function Print(ByVal ReportNam As String, Optional ByVal _
            strCon As String = "") As String
        Dim strSQL As String
        If strCon = "" Then
            strSQL = "select * from  " & ReportNam
        Else
            strSQL = "select * from  " & ReportNam & " where " & strCon
        End If
        Dim myfrm As frmPrint = New frmPrint(ReportNam, strSQL)
        myfrm.Show()
    End Function
End Class