'在窗体中加入如下代码即可(控件名称你自已对照一下看是不是正确)
Private Sub 规格_AfterUpdate()
If Len(Nz(Me.米重)) = 0 Then
Exit Sub
Else
Me.米重 = DLookup("[米重]", "查询表2", "[类目] = '" & Me.类目 & "' and [规格] = '" & Me.规格 & "'")
End If
End Sub
Private Sub 类目_AfterUpdate()
If Len(Nz(Me.规格)) = 0 Then
Exit Sub
Else
Me.米重 = DLookup("[米重]", "查询表2", "[类目] = '" & Me.类目 & "' and [规格] = '" & Me.规格 & "'")
End If
End Sub
Private Sub 长度_AfterUpdate()
If Len(Nz(Me.数量)) = 0 Then
Exit Sub
Else
Me.合计 = Me.米重 * Me.长度 * Me.数量 / 1000
End If
End Sub
Private Sub 数量_AfterUpdate()
If Len(Nz(Me.长度)) = 0 Then
Exit Sub
Else
Me.合计 = Me.米重 * Me.长度 * Me.数量 / 1000
End If
End Sub
Private Sub 销售单价_AfterUpdate()
Me.金额 = Me.销售单价 * Me.合计
End Sub
Private Sub 确定_Click()
Me.类目 = Null
Me.规格 = Null
Me.米重 = Null
Me.长度 = Null
Me.数量 = Null
Me.合计 = Null
Me.销售单价 = Null
Me.金额 = Null
End Sub
Private Sub 取消_Click()
DoCmd.Close
End Sub