最美情侣中文字幕电影,在线麻豆精品传媒,在线网站高清黄,久久黄色视频

歡迎光臨散文網(wǎng) 會員登陸 & 注冊

dlookup,dcount,dsum,dmax,dmin函數(shù)應用

2022-10-27 09:49 作者:凌霄百科  | 我要投稿

銷售管理


Private Sub Form_Load()

Me.銷售總額.Value = Nz(DSum("銷售金額", "銷售數(shù)據(jù)表"), 0)

Dim data_count As Long

data_count = Nz(DCount("銷售金額", "銷售數(shù)據(jù)表"), 0)

If data_count <> 0 Then

Me.平均銷售額.Value = CCur(Nz(DSum("銷售金額", "銷售數(shù)據(jù)表"), 0) / data_count)

Else

Me.平均銷售額.Value = 0

End If

Me.最大銷售額.Value = Nz(DMax("銷售金額", "銷售數(shù)據(jù)表"), 0)

Me.最小銷售額.Value = Nz(DMin("銷售金額", "銷售數(shù)據(jù)表"), 0)

End Sub


Private Sub 客戶_Change()

Me.客戶銷售額 = Nz(DLookup("銷售金額合計", "客戶銷售查詢", "客戶='" & Me.客戶 & "'"), 0)

End Sub


銷售數(shù)據(jù)表

Private Sub Form_AfterUpdate()

Forms("銷售管理").銷售總額.Value = Nz(DSum("銷售金額", "銷售數(shù)據(jù)表"), 0)

Dim data_count As Long

data_count = Nz(DCount("銷售金額", "銷售數(shù)據(jù)表"), 0)

If data_count <> 0 Then

Forms("銷售管理").平均銷售額.Value = CCur(Nz(DSum("銷售金額", "銷售數(shù)據(jù)表"), 0) / data_count)

Else

Forms("銷售管理").平均銷售額.Value = 0

End If

Forms("銷售管理").最大銷售額.Value = Nz(DMax("銷售金額", "銷售數(shù)據(jù)表"), 0)

Forms("銷售管理").最小銷售額.Value = Nz(DMin("銷售金額", "銷售數(shù)據(jù)表"), 0)

End Sub




dlookup,dcount,dsum,dmax,dmin函數(shù)應用的評論 (共 條)

分享到微博請遵守國家法律
华容县| 景洪市| 通榆县| 扎赉特旗| 大同市| 乃东县| 通榆县| 宁化县| 东辽县| 奉节县| 衡阳县| 广宁县| 广河县| 乐至县| 泰和县| 海淀区| 建德市| 德令哈市| 安图县| 共和县| 夹江县| 新乡市| 滕州市| 英吉沙县| 双峰县| 苏尼特右旗| 休宁县| 通渭县| 修水县| 延安市| 宣汉县| 晋城| 林芝县| 凤台县| 平陆县| 汾阳市| 桦川县| 沙河市| 武功县| 香河县| 兴城市|