以文本方式查看主题 - 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 -- 非常感谢 ![]() ![]() ![]() |