主题：请教老师们一个思路~上传项目

在表“商品销售”--表属性--事件--DataColChanging中加入以下代码

If e.DataCol.Name = "销售数量" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[商品编号] = '" & e.DataRow("商品编号") & "'"
    '在客户产品表查找所输入产品名称的行
    dr = DataTables("产品出入库").Find(Filter )
    If dr IsNot Nothing Then '如果找到
        '将找到行的规格?厚度?单价?备注内容填入到正在输入的行中.
        If e.NewValue > dr("库存") Then
            msgbox("库存不足!!!")
            e.cancel = True
        End If
    End If
 
End If

判断销售数量是否大于库存数量即可