- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 自动选择副表当选行，并复制到表A中 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=7565)
-- 发布时间：2010/7/10 11:10:00
-- 自动选择副表当选行，并复制到表A中
此主题相关图片如下：qq截图未命名.jpg
1.在表A中点击“增加”按钮，打开窗口2
2.在窗口2中，光标移动时，表格当前行的复选框选中，移动到其它行时，复选框的值也随之变化，（选中是唯一的）
3.点击窗口2中的确认按钮，可以将刚才选中的行的内容复制到表A中
这个代码如何设置，原先用datalist是很方便的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试项目.rar |
-- 发布时间：2010/7/10 13:51:00
--
窗口2,Table1 PositionChanged事件代码
For Each r As Row In Tables("窗口2_Table1").Rows
r.Checked = False
Next
Tables("窗口2_Table1").Current.Checked = True
按钮代码：
Dim r As Row = Tables("窗口2_Table1").Current
Dim dr As Row = Tables("表A").AddNew
dr("编号") = r("第一列")
dr("公司名称") = r("第二列")
\'…………
e.Form.Close
-- 发布时间：2010/7/10 14:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试项目t.rar |
-- 发布时间：2010/11/2 11:28:00
-- 毛纺厂ERP谁会做，会做的报个价
窗口2,Table1 PositionChanged事件代码
For Each r As Row In Tables("窗口2_Table1").Rows
r.Checked = False
Next
Tables("窗口2_Table1").Current.Checked = True
按钮代码：
Dim r As Row = Tables("窗口2_Table1").Current
Dim dr As Row = Tables("表A").AddNew
dr("编号") = r("第一列")
dr("公司名称") = r("第二列")
\'…………
e.Form.Close
请问可否一次选取多行并复制到表A了？
谢谢.
-- 发布时间：2010/11/2 11:58:00
--
当然可以。
For Each r As Row In Tables("窗口2_Table1").GetCheckedRows
Dim dr As Row = Tables("表A").AddNew
dr("编号") = r("第一列")
dr("公司名称") = r("第二列")
Next