rptgroupfuncbas.bas

来自「本系统是一个报表分析查询系统」· BAS 代码 · 共 24 行

Attribute VB_Name = "RptGroupFuncBas"
Option Explicit

Public Sub getCellData()
 With meCell
  .MaxCols = 3
  .MaxRows = 6
  .ListSql = "select a.Js_GroupID as fItemID,a.Js_GroupName as fName,b.Js_GroupName as fPName,fDetail=case a.Js_Detail when 0 then '组目录' when 1 then '报表组' end,fSign=case a.Js_UseSign when 0 then '禁止' when 1 then '启用' end from Js_RptGroup a left join Js_RptGroup b on b.Js_GroupID=a.Js_ParentID order by a.Js_GroupID desc"
 End With
End Sub

Public Function Cn2Num(ByVal inCnName As String) As Long
 Dim RetValue As Long
 Select Case inCnName
  Case "禁止"
   RetValue = 0
  Case "启用"
   RetValue = 1
  Case Else
   RetValue = 0
 End Select
 Cn2Num = RetValue
End Function