- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 新增当前表的当前行的指定列内容复制的一行，不知道，代码哪里有问题，测试失败，项目已上传？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135404)
-- 发布时间：2019/5/25 17:08:00
-- 新增当前表的当前行的指定列内容复制的一行，不知道，代码哪里有问题，测试失败，项目已上传？
新增当前表的当前行的指定列内容复制的一行：
Dim t As Table = Tables("窗口1_表A")
If t.current("第一列") = Nothing Then Return
Dim dr As Row = Tables("窗口1_表A").AddNew()
dr("第一列") = t.current("第一列")
dr("第二列") = t.current("第二列")
新增一空行：
Tables("窗口1_表A").AddNew()
不知道，代码哪里有问题，测试失败，项目已上传：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试新版2019.zip |
-- 发布时间：2019/5/25 17:13:00
--
Dim t As Table = Tables("窗口1_表A")
dim r as row = t.current
If r is nothing Then Return
If r("第一列") = Nothing Then Return
Dim dr As Row = Tables("窗口1_表A").AddNew()
dr("第一列") = r("第一列")
dr("第二列") = r("第二列")