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字段的值