先把本窗体刷新使得刚写入的数据更新到表中。作者: pq318 时间: 2011-10-27 09:22
版主我试试啊作者: pq318 时间: 2011-10-27 09:39
有两个窗体,对应的表分别是form9和form14,其中form9是前到工序的,form14是后到工序的,我在form14窗体写的
Public Sub Form_Load()
Me.Lable45 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable41" & "'")
Me.Lable46 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable42" & "'")
Me.Lable47 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable43" & "'")
Me.Lable48 = DLookup("[Lable10]", "form9", "[Lable2]='" & "Lable44" & "'")
Me.Lable3.SetFocus
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Controls
For Each ctl In ctls
If ctl.ControlType <> acLabel Then
ctl.OnDblClick = "=AllDblClick()"
End If
Next ctl
End Sub
麻烦各位看看哪里不对啊,就是没有作用啊作者: todaynew 时间: 2011-10-27 11:03
第一句加:forms("form9").Refresh