K3 WISE 开发积累

https://wenku.baidu.com/view/c1992dfc443610661ed9ad51f01dc281e43a56dc.html

 

 

插件如何调用直接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字段的值