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

原代码 datacolchanaged事件，最近上一次newrate等于这次的oldrate。

If e.DataCol.Name = "Sapcode" Then '如果内容发生变动的是Sapcode列

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

e.DataRow("OldRate") = Nothing '那么清空此行单价列的内容

Else

Dim dr As DataRow

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

dr = DataTables("pcndetail").Find("[Sapcode] = '" & e.NewValue & "'")

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

e.DataRow("oldrate") = dr("newrate")

End If

但是我想改成：

这一次的 oldrate=（最近一次newrate）*（这一次unit）/（最近一次unit）

请问怎么实现？

这一次unit，可能手动修改。

如果没有最近一次，就是只有一条记录，那又应该怎么算

对哦。

那就置零了。

还有，我查了我的语句上只能实现查找的第一次同Sapcode的newrate，不是最近一次同Sapcode的newrate。

想要实现这种功能，应该如何写呢？

加参数

dr = DataTables("pcndetail").Find("[Sapcode] = '" & e.NewValue & "' and _Identify <> " & e.datarow("_Identify"), "排序的列 desc")

谢谢。

dr = DataTables("pcndetail").Find("[Sapcode] = '" & e.NewValue & "' and _Identify <> " & e.datarow("_Identify"), "_Identify desc")

e.DataRow("oldrate") =dr("newrate")

e.DataRow("ConditionPricingUnit") = dr("ConditionPricingUnit")

这样就行了。

可是，我想要的是：

e.DataRow("oldrate") = ( dr("newrate") * dr("ConditionPricingUnit") /e.DataRow("ConditionPricingUnit") )

怎么实现？？

e.DataRow("oldrate") = dr("newrate") * e.DataRow("ConditionPricingUnit") / dr("ConditionPricingUnit")

专家，你好。

我现在的需求是先输入产品物料，对应查出上次输入的供应商，等信息。

我的原价格是，同个采购组织,同物料编码,同个供应商。满足三个条件后生成。

我的代码如下，可是就报错了，应该是后半段出问题了。麻烦看看，谢谢。

datacolchanged

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 & "' and _Identify <> " & e.DataRow("_Identify"), "_Identify desc")

If dr IsNot Nothing Then '如果找到了同名物料行,也就是dr不是Nothing

e.DataRow("供应商代码") = dr("供应商代码")

e.DataRow("税率") = dr("税率")

Dim wr As DataRow

wr = DataTables("价格申请子表").Find("[采购组织] = '" & e.DataRow("采购组织") & "[物料编码] = '" & e.DataRow("物料编码") & "[供应商代码] = '" & e.DataRow("供应商代码") &"' And _Identify <> " & e.DataRow("_Identify"), "_Identify desc")

If wr IsNot Nothing Then '如果找到同采购组织,同物料编码,同个供应商代码三个条件的行

e.DataRow("原主含税价") = wr("主含税单价")

End If

报错如下：

.NET Framework 版本：2.0.50727.8745

Foxtable 版本：2016.7.29.1

错误所在事件：表，价格申请子表，DataColChanged

详细错误信息：

调用的目标发生了异常。

语法错误:“660921050300”运算符后缺少操作数。

Dim wr As DataRow
wr = DataTables("价格申请子表").Find("[采购组织] = '" & e.DataRow("采购组织") & "' and [物料编码] = '" & e.DataRow("物料编码") & "' and [供应商代码] = '" & e.DataRow("供应商代码") &"' And _Identify <> " & e.DataRow("_Identify"), "_Identify desc")

主题：跨表引用疑问