以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新增复制上一行几个列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76630)

--  作者:sky2015
--  发布时间:2015/11/2 15:44:00
--  新增复制上一行几个列
新增的时候判断最后一行 a b c三列,如果不为空 ,怎么把 a b c 三列的值 赋值到新增的行

求代码
图片点击可在新窗口打开查看

--  作者:Hyphen
--  发布时间:2015/11/2 15:48:00
--  

Dim dr As Row = Tables("表B").Rows(Tables("表B").Rows.Count - 1)

Dim new As Row = Tables("表B").AddNew()

new("第一列") = dr("第一列")


--  作者:sky2015
--  发布时间:2015/11/2 15:49:00
--  
非常感谢图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看