主题：思路问题

有3张表，分别是记录表，出库表，库存表，需要在记录表里的配件类型、配件名称、数量列选择输入，要求在库存表里判断下这个配件名称的数量是否够，再记录到出库表里，各位有没有什么好的思路

你是要做出库功能是吗？

 

1、从记录表选择输入，参考

 

http://www.foxtable.com/webhelp/scr/1459.htm

 

2、判断是否可以出库，参考

 

http://www.foxtable.com/webhelp/scr/1451.htm

 

记录表选择输入已经完成了，现在差一个在记录表里按配件名称和数量的输入判断库存表的数量是否足够出库，该怎么写？在哪里写比较好？

回复4楼，代码写得没问题。

 

如果还有其他问题，再提问。

先输入配件名称，再输入数量，不会判断，只有先输数量，再输配件名称才会提示，而且现在确定了提示后还可以再输入超过库存的数量...

If e.DataCol.Name = "配件名称" OrElse e.DataCol.name = "数量" Then
    If e.DataRow("配件名称") <> Nothing Then
        Dim dr As DataRow
       
        dr = DataTables("库存").Find("[配件名称] = '" & e.DataRow("配件名称") & "'")
        If dr IsNot Nothing Then
            If e.DataRow("数量") > dr("库存数量") Then
                MessageBox.Show("库存配件数量不足,请及时补充!","提示")
            End If
        End If
    End If
End If

If e.DataCol.Name = "配件名称" OrElse e.DataCol.name = "数量" Then     If e.DataRow("配件名称") <> Nothing Then         Dim dr As DataRow                  dr = DataTables("库存").Find("[配件名称] = '" & e.DataRow("配件名称") & "'")         If dr IsNot Nothing Then             If e.DataRow("数量") > dr("库存数量") Then                   这儿加如果数量大于库存数量，清空数量的单元格内容，而且非空，该怎么写？                 MessageBox.Show("库存配件数量不足,请及时补充!","提示")             End If         End If     End If End If

e.dataRow("数量") = Nothing

e.Cancel = true

甜版辛苦了，谢谢