arqinbi.dsr

来自「此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其」· DSR 代码 · 共 31 行

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARqinbi 
   Caption         =   "订单汇总表"
   ClientHeight    =   11115
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   15240
   Icon            =   "ARqinbi.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "ARqinbi.dsx":0442
End
Attribute VB_Name = "ARqinbi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Sub ActiveReport_Initialize()
    Call printini(DAO, ARqinbi)
    lbl.Caption = "汇总日期:" & frmqinbi.DTP1.value & "至" & frmqinbi.DTP2.value & " 币别:" & frmqinbi.Cmdbi.Text
    i = 1
End Sub

Private Sub Detail_Format()
    LBLNO.Caption = i
    i = i + 1
End Sub