dsrxtreme.dsr

来自「关于VB模块的」· DSR 代码 · 共 27 行

VERSION 5.00
Begin {BD4B4E61-F7B8-11D0-964D-00A0C9273C2A} dsrXtreme 
   ClientHeight    =   9435
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11430
   OleObjectBlob   =   "dsrXtreme.dsx":0000
End
Attribute VB_Name = "dsrXtreme"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Details_Format(ByVal pFormattingInfo As Object)
    If Val(frmXtremeOrders.txtHighlight) > 0 And Report.fldOrderAmount.Value > Val(frmXtremeOrders.txtHighlight) Then
        Report.Details.BackColor = &HFFFF00
    End If  'Report.fldOrderAmount > Val(txtHighlight)...
End Sub

Private Sub Report_NoData(pCancel As Boolean)
    MsgBox "There is no data in this report. " & _
    "Supply different selection criteria"
    pCancel = True
End Sub