Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有2024人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
clchen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：1750 威望：0 精华：0 注册：2016/5/20 12:55:00 		[求助]  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/30 16:14:00 [只看该作者]

没看懂，截图说明下想要做什么

 回到顶部
帅哥哟，离线，有人找我吗？
clchen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：1750 威望：0 精华：0 注册：2016/5/20 12:55:00 		  发帖心情 Post By：2016/8/30 16:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：sa(a7sb{h$w$s_ca)~`)v4.png
图片点击可在新窗口打开查看
 试试
图片点击可在新窗口打开查看此主题相关图片如下：1w%5mjv~87ht`bx2noxjf{o.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/8/30 16:24:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询