以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助:窗口时间和增加行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118204)

--  作者:cxmxjwlmq
--  发布时间:2018/4/26 23:35:00
--  求助:窗口时间和增加行

附件中,我想达到的效果:1、找开窗口,

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:有点甜
--  发布时间:2018/4/27 9:03:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (3).table


--  作者:cxmxjwlmq
--  发布时间:2018/4/27 14:33:00
--  

老师:给看看这个代码那错了!

我想要的结果是:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

在当前行下插入一行并复制当前行的部分内容到新加行!


--  作者:有点甜
--  发布时间:2018/4/27 14:44:00
--  

Dim t As Table = Tables("窗口1_Table1")
Dim cr = t.Current
Dim nr As Row = t.AddNew
If t.Current Is Nothing OrElse t.Current.Index = t.Rows.count-1 Then
    nr.move(cr.Index+1)
End If

nr("第一列") = cr("第一列") + 1
nr("第二列") = Date.Today
nr("第四列") = cr("第四列")
nr("第五列") = cr("第五列")


--  作者:cxmxjwlmq
--  发布时间:2018/4/27 16:35:00
--  

甜老师:谢谢!