以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95223)

--  作者:jamhuton
--  发布时间:2017/1/13 14:47:00
--  跨表取值

Select Case e.DataCol.name
    Case "客户简称","月份"        
        e.DataRow("提成") = DataTables("账单明细").Compute("count(报关费) * 300 ","[客户简称]= \'"xx物流"\' And [月份]= \'" & e.DataRow("月份") & "\'" )
End Select

XX物流是固定值

请老师修改一下红色部分代码,谢谢
[此贴子已经被作者于2017/1/13 14:57:27编辑过]

--  作者:有点色
--  发布时间:2017/1/13 15:07:00
--  
Select Case e.DataCol.name
    Case "客户简称","月份"        
        e.DataRow("提成") = DataTables("账单明细").Compute("count(报关费)","[客户简称]= \'xx物流\' And [月份]= \'" & e.DataRow("月份") & "\'" )*300
End Select
[此贴子已经被作者于2017/1/13 15:07:48编辑过]

--  作者:jamhuton
--  发布时间:2017/1/13 15:44:00
--  


貌似不行

[此贴子已经被作者于2017/1/13 15:44:17编辑过]

--  作者:jamhuton
--  发布时间:2017/1/13 15:46:00
--  

Select Case e.DataCol.name
    Case "客户简称","月份"        
        e.DataRow("金8") = DataTables("账单明细").Compute("count(报关费)","[客户简称]= \'SDS\'And [月份]= \'" & e.DataRow("月份") & "\'" )*300     
        e.DataRow("金6") = DataTables("账单明细").Compute("count(报关费)","[客户简称]= \'NETH\'And [月份]= \'" & e.DataRow("月份") & "\'" )*100     
        e.DataRow("金4") = DataTables("账单明细").Compute("count(报关费)","[客户简称]= \'QLSZ\'And [月份]= \'" & e.DataRow("月份") & "\'" )*150     
        e.DataRow("金8") = DataTables("账单明细").Compute("count(报关费)","[客户简称]= \'SDS\'And [月份]= \'" & e.DataRow("月份") & "\'" )*100   
End Select
[此贴子已经被作者于2017/1/13 15:46:43编辑过]

--  作者:有点色
--  发布时间:2017/1/13 15:47:00
--  

 你要重置列

 

http://www.foxtable.com/webhelp/scr/1469.htm

 


--  作者:jamhuton
--  发布时间:2017/1/13 15:50:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


应该红线单元格显示,但是现在全部显示了
[此贴子已经被作者于2017/1/13 15:50:36编辑过]

--  作者:jamhuton
--  发布时间:2017/1/13 16:00:00
--  
[客户简称]= \'SDS\'
说明这代码没起作用

--  作者:有点色
--  发布时间:2017/1/13 16:00:00
--  
Select Case e.DataCol.name
    Case "客户简称","月份"       
        e.DataRow("金8") = DataTables("账单明细").Compute("count(报关费)","[客户简称]= \'" & e.DataRow("客户简称") & "\' And [月份]= \'" & e.DataRow("月份") & "\'" )*300
End Select