[求助]如何通过代码判断匹配对应数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何通过代码判断匹配对应数据？

共有3871人关注过本帖树形打印复制链接主题：[求助]如何通过代码判断匹配对应数据？

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

[求助]如何通过代码判断匹配对应数据？ 发帖心情

Post By：2017/7/10 18:04:00 [显示全部帖子]

各位老大们好

想请教一下，这个代码应该怎么写？

在查询表中的表达式列中实现自动判断该行的“日均销量”属于表“设置参数”中的哪一列，然后返回对应数据。

代码查了半天还是写不出来。。

拜托各位了

此主题相关图片如下：qq截图20170710175941.jpg

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

[此贴子已经被作者于2017/7/22 1:15:03编辑过]

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/10 19:46:00 [显示全部帖子]

甜老大，这个有办法用表达式或全局代码、全局变量来实现吗？因为后续还有别的模块需要这个功能。。。

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/10 21:03:00 [显示全部帖子]

已成功！

非常感谢！！！！

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/11 18:47:00 [显示全部帖子]

老师，您看下我这段代码对吗？为什么会一直出错。。

If e.DataCol.Name = "供应商" AndAlso e.NewValue IsNot Nothing Then

Dim dr As DataRow = DataTables("供应商设置").Find("名称 = " & e.NewValue )

If dr IsNot Nothing Then

e.DataRow("jhj") = dr("起订量")

End If

目的是实现查询表供应商设置中“名称”栏，返回数据“起订量”

而且现在一旦修改供应商中名称一栏，产品供应商表格就出错，修改不了供应商一栏

.NET Framework 版本：2.0.50727.8745

Foxtable 版本：2017.6.12.1

错误所在事件：表，产品供应商，DataColChanged

详细错误信息：

调用的目标发生了异常。

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

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/11 19:11:00 [显示全部帖子]

把表事件去掉后面就不会出现出错提示了，不过这个事件代码要怎么写才能实现呢？

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/11 22:11:00 [显示全部帖子]

谢谢老师！已经解决了！

还有一个问题想请教老师，现在我们标准库存天数的计算方法是：供应商起订量/各个产品规格的日均销量

但是实际上对于供应商只要是产品相同（即品名相同，规格可以不同）即可。现在我们的算法是按每种产品规格都满足起订量来设置的，会导致库存增加很多。

foxtable强大的汇总模式已经统计出品名相同的产品在同一供应商下的各规格累计日均销量了。

有没有办法可以使用汇总模式中的数据来进行计算？即使用红色箭头中的”产品A+供应商A的日均销量累计值“ ，将紫色框中的 ”标准预警天数“表达式设置为" [供应商起订量] / [产品A+供应商A的日均销量累计值] ”

谢谢老师！

此主题相关图片如下：qq截图20170711220447.jpg

[此贴子已经被作者于2017/7/11 22:12:03编辑过]

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/11 22:17:00 [显示全部帖子]

附件如下

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

[此贴子已经被作者于2017/7/11 22:17:36编辑过]

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/11 23:04:00 [显示全部帖子]

谢谢老师！这么晚了还在帮忙处理代码！万分感谢

刚刚我把代码导入进去，出来的数据有些差异，可能是同供应商的情况没有统计。。

比如产品A、供应商A，标准库存天数的理想值是供应商起订量 / 产品A+供应商A的日均累计销量，应该是 100 / 8.85=11.30

此主题相关图片如下：9a782a96afc4fa48430c724efeb59216_看图王.png

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/11 23:13:00 [显示全部帖子]

我修改了一下，老师你看这样对吗？图片点击可在新窗口打开查看

Select Case e.DataCol.Name

Case "品名","供应商","日均销量"

Dim filter As String = "品名='" & e.DataRow("品名") & "' And 供应商='" & e.DataRow("供应商") & "'"

Dim sum As Double = e.DataTable.Compute("Sum(日均销量)",filter)

If sum > 0 Then

For Each dr1 As DataRow In e.DataTable.Select(filter)

dr1("标准库存天数") = dr1("供应商起订量") / sum

End If

If e.DataCol.Name = "品名" AndAlso e.OldValue > "" Then

filter = "品名='" & e.OldValue & "' And 供应商='" & e.OldValue & "'"

sum = e.DataTable.Compute("Sum(日均销量)",filter)

If sum > 0 Then

For Each dr1 As DataRow In e.DataTable.Select(filter)

dr1("标准库存天数") = dr1("供应商起订量") / sum

End If

End Select

magus1123

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

加好友

发短信

等级：幼狐帖子：94 积分：862 威望：0 精华：0 注册：2017/7/9 3:59:00

Post By：2017/7/12 10:24:00 [显示全部帖子]

老师新写的代码比我自己修改的简洁多了，谢谢老师！

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：[求助]如何通过代码判断匹配对应数据？