📄
字号:
sqlCal = sqlCal & "UNION ALL SELECT Sum(-mmoney), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
"FROM FD_UnwRet WHERE " & _
"cPAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL "
sqlCal = sqlCal & "UNION ALL SELECT Sum(mmoney), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then mmoney Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
"FROM FD_UnwAcrRcp WHERE " & _
"cGAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL "
sqlCal = sqlCal & "UNION ALL SELECT Sum(-mmoney), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
"FROM FD_UnwAcrRcp WHERE " & _
"cPAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL "
'cuidong 2001.07.06
'-------------------------------------------------------
' sqlCal = sqlCal & "UNION ALL SELECT Sum(mmoney), " & _
' "Sum(Case When (dbill_date <= '" & cMBegin & "') Then mmoney Else 0 End), " & _
' "Sum(Case When (dbill_date <= '" & cTBegin & "') Then mmoney Else 0 End), " & _
' "Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <='" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
' "Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
' "FROM FD_Sav WHERE " & _
' "cAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
' "' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL "
' sqlCal = sqlCal & "UNION ALL SELECT Sum(-mmoney), " & _
' "Sum(Case When (dbill_date <= '" & cMBegin & "') Then -mmoney Else 0 End), " & _
' "Sum(Case When (dbill_date <= '" & cTBegin & "') Then -mmoney Else 0 End), " & _
' "Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
' "Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
' "FROM FD_Fetch WHERE " & _
' "cAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
' "' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL "
sqlCal = sqlCal & vbCrLf
sqlCal = sqlCal & "UNION ALL SELECT Sum(FD_Sav.mmoney), " & _
"Sum(Case When (FD_Sav.dbill_date <= '" & cMBegin & "') Then FD_Sav.mmoney Else 0 End), " & _
"Sum(Case When (FD_Sav.dbill_date <= '" & cTBegin & "') Then FD_Sav.mmoney Else 0 End), " & _
"Sum(Case When (FD_Sav.dbill_date > '" & cMBegin & "' AND FD_Sav.dbill_date <='" & cToday & "') Then (DateDiff(Day, FD_Sav.dbill_date, '" & cToday & "') + 1) * FD_Sav.mmoney Else 0 End), " & _
"Sum(Case When (FD_Sav.dbill_date > '" & cTBegin & "' AND FD_Sav.dbill_date <= '" & cToday & "') Then (DateDiff(Day, FD_Sav.dbill_date, '" & cToday & "') + 1) * FD_Sav.mmoney Else 0 End) " & _
"FROM FD_Sav, FD_AccDef WHERE FD_AccDef.cAccID = FD_Sav.cAccID And " & _
"FD_Sav.cAccID = '" & rsItemss!cCode & "' AND FD_Sav.dbill_date <= '" & cToday & _
"' And FD_Sav.dbill_date >= '" & cBYear & "' AND (FD_Sav.cBookCode IS NOT NULL) And (Not FD_AccDef.iType = 0 ) "
sqlCal = sqlCal & vbCrLf
sqlCal = sqlCal & "UNION ALL SELECT Sum(-FD_Fetch.mmoney), " & _
"Sum(Case When (FD_Fetch.dbill_date <= '" & cMBegin & "') Then -FD_Fetch.mmoney Else 0 End), " & _
"Sum(Case When (FD_Fetch.dbill_date <= '" & cTBegin & "') Then -FD_Fetch.mmoney Else 0 End), " & _
"Sum(Case When (FD_Fetch.dbill_date > '" & cMBegin & "' AND FD_Fetch.dbill_date <= '" & cToday & "') Then -(DateDiff(Day, FD_Fetch.dbill_date, '" & cToday & "') + 1) * FD_Fetch.mmoney Else 0 End), " & _
"Sum(Case When (FD_Fetch.dbill_date > '" & cTBegin & "' AND FD_Fetch.dbill_date <= '" & cToday & "') Then -(DateDiff(Day, FD_Fetch.dbill_date, '" & cToday & "') + 1) * FD_Fetch.mmoney Else 0 End) " & _
"FROM FD_Fetch, FD_AccDef WHERE FD_AccDef.cAccID = FD_Fetch.cAccID And " & _
"FD_Fetch.cAccID = '" & rsItemss!cCode & "' AND FD_Fetch.dbill_date <= '" & cToday & _
"' And FD_Fetch.dbill_date >= '" & cBYear & "' AND (FD_Fetch.cBookCode IS NOT NULL) And (Not FD_AccDef.iType = 0 ) "
sqlCal = sqlCal & vbCrLf
sqlCal = sqlCal & "UNION ALL SELECT Sum(FD_Sav.mmoney), " & _
"Sum(Case When (FD_Sav.dbill_date <= '" & cMBegin & "') Then FD_Sav.mmoney Else 0 End), " & _
"Sum(Case When (FD_Sav.dbill_date <= '" & cTBegin & "') Then FD_Sav.mmoney Else 0 End), " & _
"Sum(Case When (FD_Sav.dbill_date > '" & cMBegin & "' AND FD_Sav.dbill_date <='" & cToday & "') Then (DateDiff(Day, FD_Sav.dbill_date, '" & cToday & "') + 1) * FD_Sav.mmoney Else 0 End), " & _
"Sum(Case When (FD_Sav.dbill_date > '" & cTBegin & "' AND FD_Sav.dbill_date <= '" & cToday & "') Then (DateDiff(Day, FD_Sav.dbill_date, '" & cToday & "') + 1) * FD_Sav.mmoney Else 0 End) " & _
"FROM FD_Sav, FD_AccDef WHERE FD_AccDef.cAccID = FD_Sav.cAccID And " & _
"FD_Sav.cAccID = '" & rsItemss!cCode & "' AND FD_Sav.dbill_date <= '" & cToday & "'" & _
" And (FD_Sav.cBookCode IS NOT NULL) And ( FD_AccDef.iType = 0 )" & _
" And FD_Sav.cAccID Not In (Select FD_Fetch.cAccID From FD_Fetch Where FD_Fetch.cAccID = FD_Sav.cAccID )"
sqlCal = sqlCal & vbCrLf
'------------------------------------------------------------------
sqlCal = sqlCal & "UNION ALL SELECT Sum(mmoney), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then mmoney Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <='" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
"FROM FD_SettAcc WHERE " & _
"cGAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL AND Left(cSetID,2)='15' "
sqlCal = sqlCal & "UNION ALL SELECT Sum(-mmoney), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
"FROM FD_SettAcc WHERE " & _
"cPAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL AND Left(cSetID,2)='15' "
sqlCal = sqlCal & "UNION ALL SELECT Sum(Case When (igp_flag = 0) Then mmoney Else -mmoney End), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End) " & _
"FROM FD_SettAcc WHERE " & _
"cGAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL AND Left(cSetID,2)='14' "
sqlCal = sqlCal & "UNION ALL SELECT Sum(Case When (igp_flag = 0) Then mmoney Else -mmoney End), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * (Case When (igp_flag = 0) Then mmoney Else -mmoney End) Else 0 End) " & _
"FROM FD_SettAcc WHERE " & _
"cPAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL AND Left(cSetID,2)='14' "
sqlCal = sqlCal & "UNION ALL SELECT Sum(mmoney), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then mmoney Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
"FROM FD_CadAcr WHERE " & _
"cGAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL AND iDanType=0 "
sqlCal = sqlCal & "UNION ALL SELECT Sum(-mmoney), " & _
"Sum(Case When (dbill_date <= '" & cMBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date <= '" & cTBegin & "') Then -mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End), " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & cToday & "') Then -(DateDiff(Day, dbill_date, '" & cToday & "') + 1) * mmoney Else 0 End) " & _
"FROM FD_CadAcr WHERE " & _
"cPAccID = '" & rsItemss!cCode & "' AND dbill_date <= '" & cToday & _
"' And dbill_date >= '" & cBYear & "' AND cBookCode IS NOT NULL AND iDanType=0 "
sqlCal = sqlCal & "UNION ALL SELECT Sum(mb), Sum(mb), Sum(mb), 0, 0 " & _
"FROM FD_AccDef WHERE cAccID = '" & rsItemss!cCode & "'"
Set rsCal = dbsZJ.OpenRecordset(sqlCal, 2)
cExch = GetzhExch(rsItemss!cCode)
If ZjAccInfo.zjStandExch = cExch Then
dblHl = 1
Else
dblHl = GetCurHl(cExch, zjLogInfo.curDate)
End If
With rsCal
While Not .EOF
m1 = m1 + IIf(IsNull(!mTodayMb), 0, !mTodayMb) * dblHl
m2 = m2 + IIf(IsNull(!mMonthbeginMb), 0, !mMonthbeginMb) * dblHl
m3 = m3 + IIf(IsNull(!mTendaybeginMb), 0, !mTendaybeginMb) * dblHl
M4 = M4 + IIf(IsNull(!mMonth), 0, !mMonth) * dblHl
M5 = M5 + IIf(IsNull(!mTenday), 0, !mTenday) * dblHl
.MoveNext
Wend
End With
rsItemss.MoveNext
Wend
With JszxInfo
.mTodayMb = m1
.mTenday = ((dToday - dTendayBegin + 1) * m3 + M5) / (dToday - dTendayBegin + 1)
.mMonth = ((dToday - dMonthBegin + 1) * m2 + M4) / (dToday - dMonthBegin + 1)
End With
Set oOption = Nothing
End Sub
'********************************************************************
'*函数说明: 计算从科目取数 *
'*参 数: iItem_id : 项目编号 *
'* *
'*返回值 : *
'*********************************************************************
Private Sub Cal_JszxKm(iItem_id As String)
Dim sqlCale As String
Dim rsCale As New UfRecordset
Dim sqlItem As String
Dim rsItem As New UfRecordset
Dim blnPrpty As Boolean
Dim mQc As Double
Dim m1 As Double
Dim m2 As Double
Dim m3 As Double
Dim M4 As Double
Dim M5 As Double
sqlItem = "SELECT ccode FROM FD_Itemss WHERE iitem_id=" & iItem_id
Set rsItem = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
With rsItem
While Not .EOF
blnPrpty = GetKmPropty(!cCode)
Dim curTmp As Currency
curTmp = GetKmQC(!cCode, blnPrpty)
mQc = mQc + IIf(blnPrpty, curTmp, -curTmp)
sqlCale = "SELECT Sum(md-mc) AS mTodayMb, " & _
"Sum(Case When dbill_date <= '" & FormatDate(dMonthBegin) & "' Then (md - mc) Else 0 End) AS mMonthbeginMb, " & _
"Sum(Case When dbill_date <= '" & FormatDate(dTendayBegin) & "' Then (md - mc) Else 0 End) AS mTendaybeginMb, " & _
"Sum(Case When (dbill_date > '" & FormatDate(dMonthBegin) & "' AND dbill_date <= '" & _
FormatDate(dToday) & "') Then (DateDiff(Day, dbill_date, '" & FormatDate(dToday) & "') + 1) * (md - mc) Else 0 End) AS mMonth, " & _
"Sum(Case When (dbill_date > '" & FormatDate(dTendayBegin) & "' AND dbill_date <= '" & _
FormatDate(dToday) & "') Then (DateDiff(Day, dbill_date, '" & FormatDate(dToday) & "') + 1) * (md - mc) Else 0 End) AS mTenday " & _
"FROM GL_accVouch " & _
"WHERE ccode LIKE '" & !cCode & "%' " & _
"AND iperiod >= 1 And iperiod <=12 AND iflag IS NULL AND dbill_date<='" & FormatDate(dToday) & "'"
Set rsCale = dbsZJ.OpenRecordset(sqlCale, dbOpenSnapshot)
With rsCale
'---- Change DC Direction
If Not .EOF Then
m1 = m1 + IIf(IsNull(!mTodayMb), 0, IIf(blnPrpty, !mTodayMb, -!mTodayMb))
m2 = m2 + IIf(IsNull(!mMonthbeginMb), 0, IIf(blnPrpty, !mMonthbeginMb, -!mMonthbeginMb))
m3 = m3 + IIf(IsNull(!mTendaybeginMb), 0, IIf(blnPrpty, !mTendaybeginMb, -!mTendaybeginMb))
M4 = M4 + IIf(IsNull(!mMonth), 0, IIf(blnPrpty, !mMonth, -!mMonth))
M5 = M5 + IIf(IsNull(!mTenday), 0, IIf(blnPrpty, !mTenday, -!mTenday))
End If
End With
rsItem.MoveNext
Wend
End With
With JszxInfo
.mTodayMb = mQc + m1
.mTenday = ((dToday - dTendayBegin + 1) * (mQc + m3) + M5) / (dToday - dTendayBegin + 1)
.mMonth = ((dToday - dMonthBegin + 1) * (mQc + m2) + M4) / (dToday - dMonthBegin + 1)
End With
End Sub
'********************************************************************
'*函数说明: 计算从总账账户取数 *
'*参 数: iItem_id : 项目编号 *
'* *
'*返回值 : *
'*********************************************************************
Private Sub Cal_JszxZh(iItem_id As String)
Dim sqlCale As String
Dim rsCale As New UfRecordset
Dim sqlItem As String
Dim rsItem As New UfRecordset
Dim bPropty As Boolean
Dim mQc As Double
Dim m1 As Double
Dim m2 As Double
Dim m3 As Double
Dim M4 As Double
Dim M5 As Double
Dim cMBegin As String
Dim cTBegin As String
Dim cToday As String
Dim lngZhPrp As Long
cMBegin = FormatDate(dMonthBegin)
cTBegin = FormatDate(dTendayBegin)
cToday = FormatDate(dToday)
sqlItem = "SELECT * FROM FD_AccSet WHERE cAccID IN (SELECT " & _
"ccode FROM FD_Itemss WHERE iitem_id=" & iItem_id & ")"
Set rsItem = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
With rsItem
While Not .EOF
lngZhPrp = GetZhDir(!cAccID, !cCode)
bPropty = GetKmPropty(!cCode)
If IsNull(!cdeptcode) And IsNull(!cPersonCode) And IsNull(!cCusCode) And IsNull(!cSupCode) And IsNull(!cItem_id) And IsNull(!citem_class) Then
mQc = mQc + lngZhPrp * GetKmQC(!cCode, bPropty)
Else
mQc = mQc + lngZhPrp * GetKmQC_Fz(!cCode, bPropty, !cdeptcode, !cPersonCode, !cCusCode, !cSupCode, !cItem_id, !citem_class)
End If
sqlCale = "SELECT Sum(md-mc) AS mTodayMb, " & _
"Sum(Case When dbill_date <= '" & cMBegin & "' Then (md-mc) Else 0 End) AS mMonthbeginMb, " & _
"Sum(Case When dbill_date <= '" & cTBegin & "' Then (md-mc) Else 0 End) AS mTendaybeginMb, " & _
"Sum(Case When (dbill_date > '" & cMBegin & "' AND dbill_date <= '" & _
cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * (md - mc) Else 0 End) AS mMonth, " & _
"Sum(Case When (dbill_date > '" & cTBegin & "' AND dbill_date <= '" & _
cToday & "') Then (DateDiff(Day, dbill_date, '" & cToday & "') + 1) * (md - mc) Else 0 End) AS mTenday " & _
"FROM GL_accVouch " & _
"WHERE ccode LIKE '" & !cCode & "%' AND iperiod >= 1 And iperiod <=12 " & _
"AND iflag IS NULL AND dbill_date <= '" & cToday & "'"
If Not IsNull(!cdeptcode) Then
sqlCale = sqlCale & " And cdept_id LIKE '" & !cdeptcode & "%'"
End If
If Not IsNull(!cPersonCode) Then
sqlCale = sqlCale & " And cperson_id = '" & !cPersonCode & "'"
End If
If Not IsNull(!cCusCode) Then
sqlCale = sqlCale & " And ccus_id = '" & !cCusCode & "'"
End If
If Not IsNull(!cSupCode) Then
sqlCale = sqlCale & " And csup_id = '" & !cSupCode & "'"
End If
If Not IsNull(!cItem_id) Then
sqlCale = sqlCale & " And citem_id = '" & !cItem_id & "'"
End If
If Not IsNull(!citem_class) Then
sqlCale = sqlCale & " And citem_class = '" & !citem_class & "'"
End If
Set rsCale = dbsZJ.OpenRecordset(sqlCale, dbOpenSnapshot)
With rsCale
If Not .EOF Then
m1 = m1 + lngZhPrp * IIf(IsNull(!mTodayMb), 0, !mTodayMb)
m2 = m2 + lngZhPrp * IIf(IsNull(!mMonthbeginMb), 0, !mMonthbeginMb)
m3 = m3 + lngZhPrp * IIf(IsNull(!mTendaybeginMb), 0, !mTendaybeginMb)
M4 = M4 + lngZhPrp * IIf(IsNull(!mMonth), 0, !mMonth)
M5 = M5 + lngZhPrp * IIf(IsNull(!mTenday), 0, !mTenday)
End If
End With
rsItem.MoveNext
Wend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -