- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于getcheckdrows (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60562)
-- 发布时间：2014/11/27 0:26:00
-- 关于getcheckdrows
GetCheckedRows
获得一个Row类型的集合，该集合包括所有复选框已经选中的行。
示例
下面的代码删除订单表中所有复选框已经选中的行：
Dim
rs As List(of Row) = Tables("订单").GetCheckedRows()For Each r As Row in rs
r.Delete
Next
帮助里的示例为什么不执行也不报错？
-- 发布时间：2014/11/27 0:32:00
--
Dim r As Row = Tables("应收款").Current
If r("选择") = True Then
Dim nma() As String = {"购方简称","日期","销售单号","客户"} \'A表数据来源列
Dim nmb() As String = {"客户简称","单据日期","单号","客户"} \'B表数据接收列
Dim dr As DataRow = DataTables("日报").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
以上代码实现了单行的操作。请问如何实现被选择的多行操作呢？
-- 发布时间：2014/11/27 3:04:00
--
Dim rs As List(of Row) = Tables("应收款").GetCheckedRows()
For Each r As Row In rs
Dim nma() As String = {"购方简称","日期","销售单号","客户"} \'A表数据来源列
Dim nmb() As String = {"客户简称","单据日期","单号","客户"} \'B表数据接收列
Dim dr As DataRow = DataTables("日报").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
Next
-- 发布时间：2014/11/27 8:09:00
--
放在按钮里不执行，也不报错。一楼所述的帮助里的示例代码也不执行。
-- 发布时间：2014/11/27 8:14:00
--
For i As Integer = 0 To nma.Length - 1
Dim dr As DataRow = DataTables("日报").AddNew
dr(nmb(i)) = r(nma(i))
Next
dr(nmb(i)) = r(nma(i))
Next
-- 发布时间：2014/11/27 8:22:00
--
交换位置，仍然不行
-- 发布时间：2014/11/27 8:29:00
--
上例子把,就那么简单的代码,有什么理由不行.
-- 发布时间：2014/11/27 8:34:00
--
对啊，我也想的挺简单的，也是像这样写的，就是不执行，问题出在那里？
而且如第一楼的问题一样，示例代码经过测试也不执行
-- 发布时间：2014/11/27 8:36:00
--
上例子. 1楼的是删除行和你这个是两回事.
-- 发布时间：2014/11/27 8:40:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |