主题：新增行时自动复制数据表中已经有记录的行

在窗体中新增一行时，怎么样才能复制数据表已经有的记录行到当前新增行相对应的字段上？

http://www.foxtable.com/help/topics/0630.htm

 

在此事件中想通过e.datatable获得当前行，好像不行，是不是只有tables才有current属性，有点混淆了。

 

若在此事件中想获得由窗体传递过来的某行，又应该引用呢，这样的话是不是在不同事件中传递参数，若用全局变量的话，似乎有点不符合逻辑啊

 

另外在代码编辑器的精灵中并没有列出某控制的所有方法属性,比如checkbox的checked属性，dropdownbo的Value,没有列出的好像都是些常用的，呵呵~

1、要灵活变通，复制当前行，这样设置事件代码就行了：
  
Dim r As Row = Tables("表名").Current
For Each dc As DataCol In e.DataTable.DataCols
     e.DataRow(dc.Name) = r(dc.Name)
Next

 

2、代码编辑器不全的，以帮助为准。

 

事先在datacolchanging中禁止某列重复，若此时在datarowadding中新增以上代码，代码运行过程中一定会出现某列重复提示的，那该如何避免？

前提是某列值是否重复，是必须要有的检查

 

 

Dim r As Row = Tables("表名").Current
For Each dc As DataCol In e.DataTable.DataCols

    if dc.Name <> "禁止重复列的列名" Then
          e.DataRow(dc.Name) = r(dc.Name)

    end if
Next

这样禁止后，被禁止的值无法被复制了，是不是可以把datacolchanging中禁止某列重复的代码统一在行保存按扭上检查执行?

你的问题已经自相矛盾了，既然要禁止重复，就不应该复制啊。