- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助，循环执行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107523)
-- 发布时间：2017/9/29 16:34:00
-- 求助，循环执行
老师好！
有这样一个问题，如下图是“项目折扣表”
此主题相关图片如下：1.png
有这样一个窗口，如下图，在此窗口中点“方案折扣”，表里折扣按“项目折扣表”做折扣处理
此主题相关图片如下：2.png
请老师指点
-- 发布时间：2017/9/29 16:41:00
--
试试：If e.DataCol.Name ="名称" Then
Dim dr As DataRow = DataTables("项目折扣表").Find("名称 = " & "\'" & e.DataRow("名称") & "\'" )
If dr IsNot Nothing
e.DataRow("折扣")= dr("折扣")
End If
EndIf
-- 发布时间：2017/9/29 16:43:00
--
跨表引用
http://www.foxtable.com/webhelp/scr/1451.htm
-- 发布时间：2017/9/29 16:45:00
--
报错
此主题相关图片如下：3.png
-- 发布时间：2017/9/29 16:50:00
--
要写到datacolchanged事件。
-- 发布时间：2017/9/29 16:59:00
--
可以了，但是不能写到“按钮”里吗？老师!
-- 发布时间：2017/9/29 17:00:00
--
可以，写法不一样。
-- 发布时间：2017/9/29 17:02:00
--
可否指点一下！！
-- 发布时间：2017/9/29 17:02:00
--
以下是引用kmbn在2017/9/29 16:59:00的发言：
可以了，但是不能写到“按钮”里吗？老师!
可以了，但是不能写到“按钮”里吗？老师!
Dim r As Row = Tables("表A").current
Dim dr As DataRow = DataTables("项目折扣表").Find("名称 = " & "\'" & r("名称") & "\'" )
If dr IsNot Nothing
r("折扣")= dr("折扣")
End If
-- 发布时间：2017/9/29 19:31:00
--
老师!报错：
此主题相关图片如下：4.png