|
本帖最后由 pwj2009 于 2012-1-2 10:06 编辑
Henry D. Sy 发表于 2012-1-1 09:25
你将代码放错窗体了
Henry D. Sy 版主,你这方法,是要加载才可以。我下拉表更新数据后,不会立刻显示统计数据,我加了刷新也不行。怎样做到我更新下拉表,上面的表马上可以更新
我在子窗体1更新后加入事件:
Dim rst2 As DAO.Recordset '定义ADO数据集
Set rst2 = CurrentDb.OpenRecordset("SELECT * FROM 工序 Where 图号=" & Me.图号 & "", dbOpenDynaset, dbSeeChanges)
rst2.Edit
rst2![车] = DSum("车工序", "加工工序", "图号=" & Me.图号 & "") '铆焊加工
rst2![磨] = DSum("磨工序", "加工工序", "图号=" & Me.图号 & "")
rst1.Update
rst1.Close
Forms!主窗体!子窗体.Form.Recalc
运行错误提示:标准表达式中数据类型不匹配,。
|
|