table中行的克隆问题请问有没有什么好办法，能将table中的行克隆之后再修改部分列的内容呢？
我的代码这样做为什么不能实现呢？
在窗口的table的aftercheckrow事件中加入如下代码：
Dim Result As DialogResult
Result=MessageBox.Show("要复制该行吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Result=DialogResult.Yes Then
Dim r As Row=Tables("统计查询_table1").Current
Dim r1 As Row
r1=r.clone()
r1("班组信息")=""
r1("增加完成数量")=""
r1("增加完成数量的时间")=""
r1("本工序完成数量合计")=""
End If
Tables("统计查询_table1").ClearCheckedRows
其他列r1和r均相同，班组信息等列设为空
但是我的代码实现不了我的功能
第一次点击的时候可以实现，第二次第三次的时候r1和r 完全相同，没有实现班组信息设为空的功能
请问是为什么呢？
加好友 
发短信
Post By：2013/1/9 14:38:00 [只看该作者]
