Office中国论坛/Access中国论坛

标题: 请帮忙订单数量和箱数都要求能输入 [打印本页]

作者: xiujuok 时间: 2008-12-29 10:37
标题: 请帮忙订单数量和箱数都要求能输入
file:///C:/Documents%20and%20Settings/Administrator/桌面/1.JPG订单里数量和箱数要求都能输入。输入“数量”自动换算成箱数，输入“箱数”自动换算成“数量”，我数量和箱数在一个表里，现在我只能做到其中一个，不知道应该如何做“数量”和“箱数”都能输入的单子

作者: Henry D. Sy 时间: 2008-12-29 10:44
在两个控件的更新后，
判断，如果另一个为空，则做相应的换算。

作者: xiujuok 时间: 2008-12-30 07:23
能写下，具体编码怎么写吗？

作者: Henry D. Sy 时间: 2008-12-30 08:17
你连例子和换算规律都没有，怎么帮你写。

作者: xiujuok 时间: 2008-12-30 08:30
版主，我上传了例子请帮帮忙谢谢

作者: Henry D. Sy 时间: 2008-12-30 08:53
你的库很乱，看不懂。

作者: Henry D. Sy 时间: 2008-12-30 09:10
表中根本就没有数量字段，怎么输入数量？？
请增加数量字段到表中

关系很乱，一输入数据就出错，
单位关系应该是文本型，
这些你自己修改。
代码还是给你，（大概是这个意思吧）

Private Sub 数量_AfterUpdate()
Dim intPiece As Integer
Dim strRlt As String
Dim strCriteria As String
If Not IsNull(Me.商品编号) Then
      If IsNull(Me.箱数) Then
         strCriteria = "商品编号=" & Me.商品编号
         strRlt = DLookup("单位关系", "农工商商品资料", strCriteria)
         intPiece = Val(Mid(strRlt, InStr(strRlt, "*") + 1))
         Me.箱数 = Me.数量 / intPiece
      End If
End If
End Sub

Private Sub 箱数_BeforeUpdate(Cancel As Integer)
Dim intPiece As Integer
Dim strRlt As String
Dim strCriteria As String
If Not IsNull(Me.商品编号) Then
      If IsNull(Me.数量) Then
         strCriteria = "商品编号=" & Me.商品编号
         strRlt = DLookup("单位关系", "农工商商品资料", strCriteria)
         intPiece = Val(Mid(strRlt, InStr(strRlt, "*") + 1))
         Me.数量 = Me.箱数 * intPiece
      End If
End If
End Sub

作者: tzh1600 时间: 2008-12-30 09:13
一个表里有两个互有因果的数据不合适

作者: xiujuok 时间: 2008-12-30 09:41
我本来是单相的输入箱数，数量只是在窗体里显示下，没有实际意义的，现在要求双向输入，我都觉得不合适，但是没有办法啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)