Dim X As Long, i As Long
Dim Hj1, Hj2, Hj3 As String
Const A1 = -922337203685477#, A2 = 922337203685477#
On Error GoTo ErrTransact
With frmFG.VSG1
X = .Rows - 1
.MergeCells = flexMergeFree
.MergeRow(X) = True
.Cell(flexcpText, X, 0, X, 1) = "合 计"
If .Rows = 3 Then
.TextMatrix(X, 0) = 0
.Cell(flexcpText, X, 2, X, 14) = " "
.Cell(flexcpText, X, 16, X, 17) = "￥0.00"
Exit Sub
End If
'Hj1 = Val(.Aggregate(flexSTSum, 2, 2, X - 1, 2))
'Hj2 = Val(.Aggregate(flexSTSum, 2, 16, X - 1, 16))
'Hj3 = CurrencyToStr(Hj2)
For i = 2 To X - 2
Hj1 = Hj1 + Val(.TextMatrix(i, 15))
If Val(.TextMatrix(i, 16)) > 0 Then
Hj2 = Hj2 + Val(.TextMatrix(i, 15)) * Val(.TextMatrix(i, 16))
End If
Next i
If Hj2 <= A1 Or Hj2 >= A2 Then
GoTo ErrTransact
End If
Hj3 = CurrencyToStr(Hj2)
.TextMatrix(X, 2) = Hj1
.Cell(flexcpText, X, 3, X, 15) = IIf(Hj3 = "", " ", Hj3)
.Cell(flexcpText, X, 16, X, 17) = Format(Hj2, "￥0.00")
.Cell(flexcpAlignment, X, 2, X, 14) = flexAlignLeftCenter
'.Select X, 3
'.CellAlignment = flexAlignLeftCenter
上一篇:使用分页查询来适应挖掘海量数据的需求
下一篇:提纲挈领Oracle数据库灾难防护技术
|
精品推荐