- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于复选框问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147843)
-- 发布时间：2020/3/25 16:29:00
-- 关于复选框问题
For Each r As Row In Tables("表A").GetCheckedRows \'表
Dim nma() As String = {"客户","联系人"} \'字段
Dim nmb() As String = {"客户","联系人"} \'字段
Dim dr As Row = Tables("表A").AddNew \'表
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
Next
上面代码是复选框选中，导入数据：
1.上面代码是同表，都是同表A，问题我另一个单独，不是关联表（主表和明细）是可以执行，而在关联表就不行，要如何解决？
2.按上面代码改不同表，在关联表就不行，要如何解决？
For Each r As Row In Tables("表A").GetCheckedRows \'表
Dim nma() As String = {"客户","联系人"} \'字段
Dim nmb() As String = {"客户","联系人"} \'字段
Dim dr As Row = Tables("表B").AddNew \'表
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
Next
-- 发布时间：2020/3/25 16:39:00
--
我测试没有问题。做个例子测试一下
-- 发布时间：2020/3/25 17:24:00
--
例子问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关联复选框问题.table |
-- 发布时间：2020/3/25 17:37:00
--
看看：http://www.foxtable.com/webhelp/topics/1906.htm
注意副本的table名称
For Each r As Row In Tables("导入_销售主表").GetCheckedRows