以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61303)
--  作者：风声
--  发布时间：2014/12/10 16:13:00
--  复制
老师，新增行时同时复制上一行每单元格的值
--  作者：Bin
--  发布时间：2014/12/10 16:16:00
--  
dim r as row = tables(X).addnew
dim r2 as row = tables(X).rows(r.index-1)
for each c as col in tables(X).cols
    r2(c.name)=r(c.name)
next
--  作者：风声
--  发布时间：2014/12/10 16:31:00
--  

老师，代码应该摆在那个事件里
--  作者：有点甜
--  发布时间：2014/12/10 17:08:00
--  

DataRowAdded事件，如下代码

 

Dim t As Table = Tables(e.DataTable.Name)
Dim idx As Integer = t.FindRow(e.DataRow)
If idx > 0 Then
    Dim r2 As Row = t.Rows(idx - 1)
   
    For Each c As Col In t.cols
        e.DataRow(c.name) = r2(c.name)
    Next
End If
--  作者：风声
--  发布时间：2014/12/10 17:38:00
--  
老师，我要复制上一行到下一行对应的单元格不全部复制
--  作者：有点甜
--  发布时间：2014/12/10 18:15:00
--  

    For Each c As Col In t.cols
        e.DataRow(c.name) = r2(c.name)
    Next

 

换成

 

    e.DataRow("第一列") = r2("第一列")

 

 

 
--  作者：风声
--  发布时间：2014/12/10 18:47:00
--  
谢谢老师
--  作者：风声
--  发布时间：2014/12/10 20:29:00
--  

老师，窗口的DateTimePicker控件能否把焦点指定在新增的行上
--  作者：有点甜
--  发布时间：2014/12/10 20:30:00
--  
 什么意思？
--  作者：风声
--  发布时间：2014/12/10 20:44:00
--  
每次新增行窗口的日期控件不能聚焦到新增行的单元格上