- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 统计窗口表 复选框 选中 数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68724)
-- 发布时间：2015/5/23 12:47:00
--
试试看:
Dim rs As List(of
Row) =
Tables("订单").GetCheckedRows()
For Each r As
Row in
rs
label1.text=val(label1.text)+r("金额")
Next
[此贴子已经被作者于2015/5/23 12:53:43编辑过]
-- 发布时间：2015/5/23 13:04:00
--
你的标签控件放在哪里?如果是放在窗口中 则:
Dim rs As List(of Row) = Tables("表A").GetCheckedRows()
For Each r As Row In rs
e.Form.Controls("Label1").TEXT=val(e.Form.Controls("Label1").text)+r("金额")
Next
-- 发布时间：2015/5/23 13:41:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:订单转制造单 剪切实现.foxdb |
-- 发布时间：2015/5/23 15:52:00
--
计算代码.写到 表的DataColChanged事件去即可.
四尾狐了.发帖800多个.基本知识 至少要掌握一下啊.不能只靠别人给你写代码
-- 发布时间：2015/5/23 16:25:00
--
按钮里的那句统计代码.复制放到DataColChanged事件即可