- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89816)
-- 发布时间：2016/8/30 15:59:00
-- [求助]
如何将复选框为true的值相加传到文本框中 然后在进行累加
Dim je As WinForm.TextBox = e.Form.Controls("TextBox1")
\'Dim sfdz As String = Tables("对账列表_Table1").Current("是否对账")
\'If sfdz = True Then
\'je.Text =
\'
Dim num3 As Integer = 0
Dim sum As Integer
If je.text <> "" Then
num3 = cint(je.text)
End If
If e.Row.Checked Then
num3 = num3 + e.Row("金额")
je.text =num3
Else
num3 = cint(je.text)
num3 = num3 - e.Row("金额")
je.text =num3
End If
For Each r As Row In e.Table.GetCheckedRows
sum+=1
Next
-- 发布时间：2016/8/30 16:14:00
--
没看懂，截图说明下想要做什么
-- 发布时间：2016/8/30 16:24:00
--
此主题相关图片如下：sa(a7sb{h$w$s_ca)~`)v4.png
试试
此主题相关图片如下：1w%5mjv~87ht`bx2noxjf{o.png
此主题相关图片如下：1w%5mjv~87ht`bx2noxjf{o.png[此贴子已经被作者于2016/8/30 16:24:28编辑过]
-- 发布时间：2016/8/30 16:47:00
--
AfterCheckRow事件
Dim je As WinForm.TextBox = e.Form.Controls("TextBox1")
If e.Row.Checked Then
je.Text = val(je.Text) + e.Row("金额")
Else
je.Text = val(je.Text) - e.Row("金额")
End If
如果想每次都想重新计算，这样：
Dim v As Double
For Each r As Row In e.Table.GetCheckedRows \'遍历所有已经勾选的行
v += r("金额")
Next
e.Form.Controls("TextBox1").Text = v