通过命令窗口执行类似VLOOKUP的代码执行提示错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过命令窗口执行类似VLOOKUP的代码执行提示错误

共有6017人关注过本帖树形打印复制链接主题：通过命令窗口执行类似VLOOKUP的代码执行提示错误

ganlanlee

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

加好友

发短信

等级：婴狐帖子：33 积分：240 威望：0 精华：0 注册：2021/3/17 14:10:00

通过命令窗口执行类似VLOOKUP的代码执行提示错误 发帖心情

Post By：2021/3/17 16:22:00 [显示全部帖子]

想【A表】的渠道订单号在【应付金额表】的本期订单号匹配，然后在【A表】的本期结算金额填入匹配上的【应付金额表】的应付金额，相当于VLOOKUP（渠道订单号，应付金额表！本期订单号：应付金额，3，FLASE）

查用户指南，可以用一下代码做到，但是用命令窗口看效果的时候，提示错误。

If e.DataCol.Name = "渠道订单号" Then '如果内容发生变动的是品名列

If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空

e.DataRow("本期结算金额") = Nothing '那么清空此行单价列的内容

Else

Dim dr As DataRow

'否则在产品表查找同名的产品行,将找到的行赋值给变量dr

dr = DataTables("应付金额").Find("[本期订单号] = '" & e.NewValue & "'")

If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

e.DataRow("本期结算金额") = dr("应付金额")

End If

[此贴子已经被作者于2021/3/18 12:00:04编辑过]

ganlanlee

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

加好友

发短信

等级：婴狐帖子：33 积分：240 威望：0 精华：0 注册：2021/3/17 14:10:00

Post By：2021/3/17 16:27:00 [显示全部帖子]

嗯，试过也一样提示这个
图片点击可在新窗口打开查看

此主题相关图片如下：微信截图_20210317162500.png

ganlanlee

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

加好友

发短信

等级：婴狐帖子：33 积分：240 威望：0 精华：0 注册：2021/3/17 14:10:00

Post By：2021/3/17 17:02:00 [显示全部帖子]

我目前用到的功能不多，现在这个表就差VLOOKUP这个，而且使用说明，和视频我也看了，但是我还是不太理解上面说的，没有整个实例，有点难消化。我这个表平时是用于结算的，一周结算一次，一周导入1次数据，然后筛选本期的数据导出和打印，以前用EXCEL,但是现在6万多条，条件求和EXCEL太卡了。然后就想用狐表实现，现在sumif可以用表关联和表达式做的，就是VLOOKUP实现不了