[求助]如何实现这样的自动输入？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何实现这样的自动输入？

共有4359人关注过本帖树形打印复制链接主题：[求助]如何实现这样的自动输入？

sxy_123456

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：188 积分：1613 威望：0 精华：0 注册：2013/5/21 17:44:00

[求助]如何实现这样的自动输入？ 发帖心情

Post By：2013/11/12 21:23:00 [显示全部帖子]

我想在材料采购申请单选择产品编号后做一个判断，如果同一工程材料费预算表中有这个产品则自动对应输入材料费预算表的预算数量和预算单价，如果没有这个产品，预算数量=0，预算单价=产品单价

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

sxy_123456

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：188 积分：1613 威望：0 精华：0 注册：2013/5/21 17:44:00

Post By：2013/11/12 21:56:00 [显示全部帖子]

谢谢

sxy_123456

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：188 积分：1613 威望：0 精华：0 注册：2013/5/21 17:44:00

Post By：2013/11/12 22:14:00 [显示全部帖子]

上面的例子还有个问题要请教有点甜，我在加载树选择工程名称时以下代码计算剩余数量正确，但是我习惯在加载树选择第几次采购输入数据，不能计算，有没有办法改进？

If e.DataCol.Name = "本次数量" Then

If e.DataRow.IsNull("中标工程名称") = False AndAlso e.DataRow.IsNull("产品编号") = False _

AndAlso e.DataRow.IsNull("本次数量") = False AndAlso e.DataRow.IsNull("第几次采购") = False Then

Dim sum As Double = e.DataTable.Compute("Sum(本次数量)","中标工程名称 = '" & e.DataRow("中标工程名称") & "' And 产品编号 = '" & _

e.DataRow("产品编号") & "' And 第几次采购 <= '" & e.DataRow("第几次采购") & "'")

e.DataRow("剩余数量") = e.DataRow("成本预算数量") - sum

End If

sxy_123456

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：188 积分：1613 威望：0 精华：0 注册：2013/5/21 17:44:00

Post By：2013/11/12 22:37:00 [显示全部帖子]

截图1输入木工板，剩余数量计算不正确，
图片点击可在新窗口打开查看

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

截图2剩余数量计算正确
图片点击可在新窗口打开查看

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

主题：[求助]如何实现这样的自动输入？