满足条件查找 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，要分开估计比较难了，这个系统用了4年多了，里面数据快百把万了，要满足现在的需求有其他方法吗？

我不懂您的业务，不知道到底要做什么。

老师，就是以下的代码，目前实际操作中是有空行，如图1，这个空行能不能不显示呢？2、填充的数据中能否指定列的填充（只需要采购订单号、供应商名称、单价这三列）如图2，但是实际情况是所有的都填充了如图1，请帮忙看看，谢谢

If e.KeyCode = Keys.Enter Then

Dim sl As Integer = Val(e.Sender.Text)

Dim bm As String = e.Form.Controls("材料编码1").text

If sl > 0 AndAlso bm > "" Then

Dim t As Table = e.Form.Controls("出库").Table

If t.DataTable.HasChanges Then

t.DataTable.save

End If

If DataTables("入库明细").GetValues("供应商名称", "成品编码='" & bm & "' And 入库类型= '在库'").count > 1 Then

Vars("bm") = bm

Forms("窗口1").Open

End If

Dim filter As String = "成品编码='" & bm & "'And 入库类型= '在库'"

If vars("供应商名称") > "" Then

filter = filter & " and 供应商名称='" & vars("供应商") & "'"

End If

For Each dr As DataRow In DataTables("入库明细").Select(filter, "采购订单号")

If dr("可出数量") >= sl Then

Dim dr1 As DataRow = t.DataTable.AppendLoad("[_identify] = " & dr("_identify"), False)(0)

dr1("出库数量") = sl

dr1("可出数量") = dr1("可出数量") - sl

Exit For

Else

Dim dr1 As DataRow = t.DataTable.AppendLoad("[_identify] = " & dr("_identify"), False)(0)

dr1("出库数量") = dr1("可出数量")

sl = sl - dr1("可出数量")

dr1("可出数量") = 0

End If

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

AppendLoad是直接加载"入库明细"原来的行的，并不是新增行，除非原表就有空行。因为是加载的原表数据，也不存在填充列问题，原来表有什么数据加载后就是什么数据。

老师，我把操作的步骤录了个屏，就是在最后那里之后，希望输入出库数量后，能满足下面的需求，谢谢！

1、如果供应商名称只有一家，并且出库数量小于或等于入库明细表里的可出库数，不用作任何提示，按照先进先出的原则进行分配，采购订单号、供应商名称、单价等这三列的信息填充到窗口表对应的列里；

2、如果供应商名称只有一家，但出库数量大于入库明细表里的可出库数量，需要做提示框告知，点击确定，则新增行直到把剩余的数量按照先进先出的原则进行分配完成，采购订单号、供应商名称、单价等这三列的信息填充到窗口表对应的列里，点击取消，窗口表出库数量则为空白；

3、如果供应商名称不止一家，那需要弹出临时窗口，由操作工去选择对应的供应商，如果出库数量小于或等于可出库数量，按照先进先出的原则进行分配，采购订单号、供应商名称、单价等这三列的信息填充到窗口表对应的列里；

4、如果供应商名称不止一家，那需要弹出临时窗口，由操作工去选择对应的供应商，如果出库数量大于可出库数量，则新增行直到把剩余的数量按照先进先出的原则进行分配完成，采购订单号、供应商名称、单价等这三列的信息填充到窗口表对应的列里，点击取消，窗口表出库数量则为空白；

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实际操作.rar

我的理解是如果只有一个“入库明细”表，无法实现您想要做的功能。

老师，我把表分开了，这样可以吗？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目.zip

老师，代码我增加了两个内容，供应商名称和单价，目前操作结果如图1，但是能不能出库数量小于可出数量时让他直接在显示出来的内容中直接填充对应的信息呢（采购订单号、单价、供应商名称等），不要新增行，只有出库数量大于可出数量时才新增对应的行，最终想像如图2那样的。

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

用了什么代码？

主题：满足条件查找