If adoRst.RecordCount > gcIndex_Code_0 Then
adoRst.MoveFirst
表格处理
End If
adoRst.Close
Set adoRst = Nothing
blnAdd =TRUE
EXIT function
fn_blnAdd_ErrProc:
Set adoRst = Nothing
MsgBox Err.Description
end function
也可以private fn_blnProc(dim intSum as integer,intCode as _
integer) as boolean
intcode 为功能键,代表+,-,*,/