- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动计算按钮 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38906)
-- 发布时间：2013/8/10 14:18:00
-- 自动计算按钮
求助 我想把自动计算按钮放在配置栏里边，那代码如何写？ 代码放到什么地方？
此主题相关图片如下：自动计算.png
-- 发布时间：2013/8/10 14:27:00
--
使用系统菜单模板,然后参考着做即可.
-- 发布时间：2013/8/10 14:29:00
--
想自己做也可以参考这里 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=37746&skin=0
-- 发布时间：2013/8/10 14:44:00
-- 好 了
已解决 顺便问一下 Select Case e.DataCol.Name
Case "开支明细"
If e.DataRow("开支明细") = Nothing Then
e.DataRow("金额") = Nothing
Else
Dim t As String = e.DataRow("开支明细")
Dim ts() As String = t.Split(",")
Dim sum As Double = 0
For ti As Integer = 0 To ts.Length - 1
Dim a As String = ts(ti)
Dim s As String = ""
Dim b As String
For i As Integer =1 To len(a)
b = mid(a,i,1)
If b>="0" And b<="9" Then
s=s & b
End If
Next
sum += CDbl(s)
Next
e.DataRow("金额") =sum
End If
End Select 这个金额列如何让他变成负值
-- 发布时间：2013/8/10 14:46:00
--
e.DataRow("金额") =sum-sum*2
-- 发布时间：2013/8/10 15:00:00
-- 求助
按照你说的那样，新增的数据是负值，但以前录入的数据如何自动变成负值呢？
此主题相关图片如下：负值.png
-- 发布时间：2013/8/10 15:02:00
--
点击重置列即可
此主题相关图片如下：qq截图20130810150142.png
-- 发布时间：2013/8/10 15:03:00
--
谢谢