scmprint.vb

超市进销存管理系统的源码。基于.NET平台

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