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

例子：

Private Sub m_BillTransfer_BillTerminate()

'TODO: 请在此处添加代码响应事件 BillTerminate

End Sub

Private Sub m_BillTransfer_UserMenuClick(ByVal Index As Long, ByVal Caption As String)

'TODO: 请在此处添加代码响应事件 UserMenuClick

Select Case Caption

Case "查询历史发票信息"

'此处添加处理打开自定义弹窗菜单对象的 Click 事件

strItemNO = m_BillTransfer.GetGridText(Row, intFItemID)

Dim oRpt As Object

Dim oRptV As Object

Set oRpt = CreateObject("K3DefineRpt.SqlRpt")

oRpt.ExtFirter = 2006238

oRpt.RptID = 2006238

oRpt.ShowFilter

'oRpt.GetReportData (oRpt.Result)

oRpt.GetReportData

If Not oRpt Is Nothing Then

Set oRptV = CreateObject("k3VRpt.View")

oRptV.Show oRpt, 2006238, False

End If

Set oRpt = Nothing

Set oRptV = Nothing

Case Else

End Select

End Sub

产品问题老单插件开直接SQL报表怎么传递参数呢？

产品问题 老单插件开直接SQL报表怎么传递参数呢？

恭喜您！

产品问题
老单插件开直接SQL报表怎么传递参数呢？

产品问题老单插件开直接SQL报表怎么传递参数呢？