标题：自动选择副表当选行，并复制到表A中

1楼

woodiy 发表于：2010/7/10 11:10:00

图片点击可在新窗口打开查看此主题相关图片如下：qq截图未命名.jpg

1.在表A中点击“增加”按钮，打开窗口2

2.在窗口2中，光标移动时，表格当前行的复选框选中，移动到其它行时，复选框的值也随之变化，（选中是唯一的）

3.点击窗口2中的确认按钮，可以将刚才选中的行的内容复制到表A中

这个代码如何设置，原先用datalist是很方便的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试项目.rar

2楼

czy 发表于：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

3楼

mr725 发表于：2010/7/10 14:29:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试项目t.rar

4楼

king 发表于：2010/11/2 11:28:00

以下是引用czy在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

请问可否一次选取多行并复制到表A了？

谢谢.

5楼

czy 发表于：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

共5 条记录, 每页显示 10 条, 页签: [1]