专家坐堂-[讨论]如何使用不同按钮新增行时，按要求复制上一行不同的列的内容？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]如何使用不同按钮新增行时，按要求复制上一行不同的列的内容？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74424)

--  作者：twef
--  发布时间：2015/9/10 16:34:00
--  [讨论]如何使用不同按钮新增行时，按要求复制上一行不同的列的内容？

通过窗口1中“Button1”、“Button2”两个添加按钮新增“表A”行，当点“Button1”时新增行复制“表A”上一行的“项目名称”、“客户名称”、“日期”这三列数据，当点“Button2”时新增行复制“表A”上一行的“项目名称”、“客户名称”、“型号” 这三列数据，麻烦大红袍老师给个思路？

--  作者：sara
--  发布时间：2015/9/10 16:39:00
--

通过窗口1中“Button1”、“Button2”两个添加按钮新增“表A”行，当点“Button1”时新增行复制“表A”上一行的“项目名称”、“客户名称”、“日期”这三列数据，当点“Button2”时新增行复制“表A”上一行的“项目名称”、“客户名称”、“型号” 这三列数据，麻烦大红袍老师给个思路？

Dim ro As Row

ro = Tables("***").Rows(Tables("***").Rows.Count -1)

Dim roNew As Row

roNew = Tables("***").AddNew

roNew("") = ro("")

在不同的按钮中赋值不同的列的内容

--  作者：大红袍
--  发布时间：2015/9/10 17:19:00
--
Dim nr As Row = Tables("表A").AddNew
If nr.index > 0 Then
    Dim pr As Row = Tables("表A").rows(nr.index-1)
    nr("第一列") = pr("第一列")
End If