以Access快速开发实战教程《进销存管理系统》的销售订单待审核数量为例:
查询数据:
效果图:
步骤一:用数据源建一个查询
步骤二:在图中模块刷新事件中添加如下代码,注意横线画出的地方。
'销售待审核订单
Dim rst1 As Object: Set rst1 = OpenADORecordset("Select * FROM qry_Sys_PendingList_销售待审核", , CurrentProject.Connection)
Do Until rst1.EOF
If DCount("*", "SysLocalPendingList", "Name='" & rst1!Name & "'") > 0 Then
ClientRunSQL "Update SysLocalPendingList SET Num=" & rst1!Num & " Where Name='" & rst1!Name & "'"
Else
ClientRunSQL "Insert INTO SysLocalPendingList(Name,Num) VALUES('" & rst1!Name & "'," & rst1!Num & ")"
End If
rst1.MoveNext
Loop
rst1.Close
Me.Requery
步骤三:图表中添加销售NameLocal 、 NavMenu 的值
步骤四:销售订单主窗体的加载事件中添加如下代码。
If GetParameter("PendingListArg") = "销售待审核订单" Then
.QueryConditions = LoadString("销售待审核订单")
.WhereSQL = "状态='待审核'"
.RunQuery
SetParameter "PendingListArg", dbText, ""
End If
最终效果图:
在待处理事项提醒中点击打开销售订单菜单,显示效果。
直接打开销售订单菜单,显示效果: