- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自动提取单价 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137217)
-- 发布时间：2019/7/1 7:25:00
-- 自动提取单价
如图表，新增行中客户列输入客户和产品代码后，自动获取该客户该产品最近日期的单价，求代码。
此主题相关图片如下：snap1.jpg
-- 发布时间：2019/7/1 9:29:00
--
上图有错，重新上传
此主题相关图片如下：snap1.jpg
-- 发布时间：2019/7/1 10:48:00
--
参考
http://www.foxtable.com/webhelp/topics/1451.htm
http://www.foxtable.com/webhelp/topics/0396.htm
-- 发布时间：2019/7/1 12:48:00
--
下面代码红色显示有问题怎么修改
Select Case e.DataCol.Name
Case "客户","产品代码"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("客户") OrElse dr.IsNull("产品代码") Then
dr("单价") = Nothing
Else
Dim filter As String
filter = "客户 = \'" & dr("客户") & "\' And 产品代码 = \'" & dr("产品代码") & "\'And 报价日期 = \'" & dr("报价日期 Desc") & "\'"
pr = DataTables("表A").Find(filter)
If pr IsNot Nothing Then
dr("单价") = pr("单价")
End If
End If
End Select
-- 发布时间：2019/7/1 12:51:00
--
Dim filter As String
filter = "客户 = \'" & dr("客户") & "\' And 产品代码 = \'" & dr("产品代码") & "\'"
pr = DataTables("表A").Find(filter, "报价日期 Desc")