请帮忙订单数量和箱数都要求能输入

xiujuok

file:///C:/Documents%20and%20Settings/Administrator/桌面/1.JPG订单里数量和箱数要求都能输入。输入“数量”自动换算成箱数，输入“箱数”自动换算成“数量”，我数量和箱数在一个表里，现在我只能做到其中一个，不知道应该如何做“数量”和“箱数”都能输入的单子

Henry D. Sy

在两个控件的更新后，
判断，如果另一个为空，则做相应的换算。

xiujuok

能写下，具体编码怎么写吗？

Henry D. Sy

你连例子和换算规律都没有，怎么帮你写。

xiujuok

版主，我上传了例子 请帮帮忙  谢谢

Henry D. Sy

你的库很乱，看不懂。

Henry D. Sy

表中根本就没有数量字段，怎么输入数量？？
请增加数量字段到表中

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

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

一个表里有两个互有因果的数据不合适

xiujuok

我本来是单相的输入箱数，数量只是在窗体里显示下，没有实际意义的，现在要求双向输入，我都觉得不合适，但是没有办法啊