以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于表达式------求助大神  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106185)

--  作者:qiuquanwen
--  发布时间:2017/9/4 11:18:00
--  [求助]关于表达式------求助大神
表里面的表达式列能否把公式也显示出来,比如过表达式列的公式是:第一列*第二列=A(例如2*3=6),在表达式列显示的是6,能不能显示出2*3=6.



--  作者:有点甜
--  发布时间:2017/9/4 11:25:00
--  

 drawcell事件

 

If e.Col.name = "kk" Then
    Dim str As String = e.Col.DataCol.Expression
    For Each c As Col In e.Table.cols
        If str.contains(c.name) Then
            str = str.replace(c.name, e.Row(c.name))
        End If
    Next
    e.text = str
End If


--  作者:qiuquanwen
--  发布时间:2017/9/4 11:34:00
--  
大神,可以实现,能实现在汇总统计的时候显示公式吗?如下图
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170904113151.png
图片点击可在新窗口打开查看
我想在总计的时候显示11*12+12*13=xxx 类似这样的
--  作者:qiuquanwen
--  发布时间:2017/9/4 11:44:00
--  

如果不好在一个表里面显示,能不能在另外一个表里面显示出哪个表的“表达式”列的所有表达式的结果之和。


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170904114046.png
图片点击可在新窗口打开查看
就是把  11*12+11*13+.....+11*16=1184   这这个公式和相加的结果写出来?
--  作者:qiuquanwen
--  发布时间:2017/9/4 11:48:00
--  

表格里面不好实现的话,能够在窗口里面实现,只要能实现就行


--  作者:qiuquanwen
--  发布时间:2017/9/4 12:00:00
--  
大神,
--  作者:有点甜
--  发布时间:2017/9/4 12:13:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:固定合计行.table


--  作者:有点甜
--  发布时间:2017/9/4 12:15:00
--  

或者用代码

 

Dim s As String = ""
Dim tb As Table = Tables("订单")
For r As Integer = 0 To tb.Rows.count-1
    If tb.Rows(r).Isnull("余额") = False Then
        Dim str As String = tb.Cols("余额").DataCol.Expression
        For Each c As object In tb.Cols
            If str.contains(c.name) Then
                str = str.replace(c.name, tb.Rows(r)(c.name))
            End If
        Next
        s &= str & "+"
    End If
Next
msgbox(s.trim("+"))


--  作者:qiuquanwen
--  发布时间:2017/9/4 14:07:00
--  

谢谢大神

 


--  作者:qiuquanwen
--  发布时间:2017/9/4 14:18:00
--  

大神,最后哪个统计你用的是什么?


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

我用的合计,但是出来的和你的不一样的?我把截图给你看下


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