主题：负库存销售问题

查不到dd的时候，你不能使用 dd("库存_数量") 的值的

With DataTables("库存")
    dd = .Find("[商品名称] = '" & e.DataRow("商品名称") & "'","业务日期 Desc",1) '找出倒数第二次订购PD01产品的记录
    If dd Is Nothing Then
        MessageBox.Show("当前产品没有库存","提示",MessageBoxButtons.OK)
        e.DataRow("数量") = 0
    Else
        If dd("库存_数量") - e.DataRow("数量") >= 0 Then
            dt("出库_数量") = e.DataRow("数量")
        Else
            MessageBox.Show("输入数量超过库存数量:" & dd("库存_数量") & ",请重新输入","提示",MessageBoxButtons.OK)
            e.DataRow("数量") = 0
        End If
    End If
End With

你为什么要写第一个判断？

Case "数量"
    Dim dd As DataRow
    With DataTables("库存")
        dd = .Find("[商品名称] = '" & e.DataRow("商品名称") & "'","业务日期 Desc",1) '找出倒数第二次订购PD01产品的记录
        If dd Is Nothing Then
            MessageBox.Show("当前产品没有库存","提示",MessageBoxButtons.OK)
            e.DataRow("数量") = 0
        Else
            If dd("库存_数量") - e.DataRow("数量") >= 0 Then
                dd("出库_数量") = e.DataRow("数量")
            Else
                MessageBox.Show("输入数量超过库存数量:" & dd("库存_数量") & ",请重新输入","提示",MessageBoxButtons.OK)
                e.DataRow("数量") = 0
            End If
        End If
    End With
    e.DataRow("金额") = e.DataRow("单价") * e.DataRow("数量")

加入多个列判断呗

dd = .Find("[商品名称] = '" & e.DataRow("商品名称") & "'","业务日期 Desc, _Identify desc",1) '找出倒数第二次订购PD01产品的记录