scmprint.vb

来自「超市进销存管理系统的源码。基于.NET平台」· VB 代码 · 共 14 行

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