以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加一行后某列单元格内容自动等于上一单元格中的内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125723)
--  作者：zyxhx
--  发布时间：2018/10/5 9:03:00
--  增加一行后某列单元格内容自动等于上一单元格中的内容
老师好，我设计了一个窗口，窗口中有一个增加行按钮，窗口插入一个表并已经绑定，如何实现增加一行后某列单元格内容自动等于上一单元格中的内容？
--  作者：有点甜
--  发布时间：2018/10/5 10:30:00
--  

按钮代码这样写

 

Dim t As Table = Tables("表A")
If t.Rows.count = 0 Then
    t.addnew
Else
    Dim r As Row = t.Rows(t.rows.count-1)
    Dim nr As Row = t.addnew
    nr("第一列") = r("第一列")
    nr("第二列") = r("第二列")
End If
--  作者：zyxhx
--  发布时间：2018/10/6 9:32:00
--  
非常非常感谢老师！