K3WISE 插件打开sql报表

Dim oRpt As Object
        Dim oRptV As Object
        
        Set oRpt = CreateObject("K3DefineRpt.SqlRpt")
        oRpt.ExtFirter = classTypeID
        oRpt.RptID = classTypeID
        oRpt.ShowFilter
        'oRpt.GetReportData (oRpt.Result)
        oRpt.GetReportData
        If Not oRpt Is Nothing Then
            Set oRptV = CreateObject("k3VRpt.View")
            oRptV.Show oRpt, classTypeID, False
        End If
        Set oRpt = Nothing
        Set oRptV = Nothing

 

其中classTypeID这个是ICCLassSQLReport中FListTplID字段的值