usercontrols.bas

金算盘软件代码

Attribute VB_Name = "UserControls"
Option Explicit

Public mobjRpList  As ReceiptList
Public mintTotalCols As Integer      '合计列数
Public marrTotalCol() As Integer     '合计列
Public marrTotalDec() As String      '合计列小数位数

Public mblnShowCombox As Boolean  '是否可选择编码进行条件过滤（如：单位、部门、商品）
Public mrstForGrid As rdoResultset
Public mrstForCombox As rdoResultset
Public mintCodeIdCol As Integer
Public mintSubIdCol As Integer

Public mintTextCols As Integer
Public marrTextCol() As Integer