- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]导入表为什么默认在最末行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157099)
-- 发布时间：2020/10/2 7:37:00
-- [求助]导入表为什么默认在最末行
老师好，双节快乐！
为什么我从窗体textbox导入到table(表格)在内容，总在尾行开始，
中间空余一些空行，怎么写代码呀，谢谢
此主题相关图片如下：p887stwu9h7gc@cdm%27`xu.png
此主题相关图片如下：p887stwu9h7gc@cdm%27`xu.png-- 发布时间：2020/10/6 8:46:00
--
写了什么代码？
-- 发布时间：2020/10/6 9:11:00
--
With Tables("H钢自定义")
.Position = .Position + 1
End With
Tables("H钢自定义").AddNew()
Tables("H钢自定义").Current("第五列") = Forms("窗口1").Controls("textbox1").Value
Tables("H钢自定义").Current("第六列") = Forms("窗口1").Controls("textbox2").Value
Tables("H钢自定义").Current("第七列") = Forms("窗口1").Controls("textbox3").Value
Tables("H钢自定义").Current("第八列") = Forms("窗口1").Controls("textbox4").Value
Tables("H钢自定义").Current("油漆系数") = Forms("窗口1").Controls("textbox5").Value
Tables("H钢自定义").Current("构件米重") = Forms("窗口1").Controls("textbox6").Value
-- 发布时间：2020/10/6 9:22:00
--
Dim r As Row = Tables("H钢自定义").AddNew()
r("第五列") = Forms("窗口1").Controls("textbox1").Value
r("第六列") = Forms("窗口1").Controls("textbox2").Value
r("第七列") = Forms("窗口1").Controls("textbox3").Value
r("第八列") = Forms("窗口1").Controls("textbox4").Value
r("油漆系数") = Forms("窗口1").Controls("textbox5").Value
r("构件米重") = Forms("窗口1").Controls("textbox6").Value
-- 发布时间：2020/10/6 9:37:00
--
我事先有几个空行，复制上述代码后，还是老样子
-- 发布时间：2020/10/6 9:43:00
--
AddNew就是新建行的意思。要么不要手工新建行，直接使用代码新建行；要么手工新建行后就不要使用代码新建行