- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自动新增一行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95242)
-- 发布时间：2017/1/13 22:51:00
-- [求助]自动新增一行
在最末一行输入字符或从下拉列表中选择值时，自动增加一行，有点类似于【高级筛选】
谢
-- 发布时间：2017/1/13 23:02:00
--
自动增加行设置为true
-- 发布时间：2017/1/13 23:20:00
--
以下是引用有点蓝在2017/1/13 23:02:00的发言：
自动增加行设置为true
自动增加行设置为true
不是这个意思。
-- 发布时间：2017/1/13 23:29:00
--
DataColChanged事件
Dim t As Table = Tables(e.DataTable.Name)
If t.Position = t.Rows.Count - 1 Then t.AddNew
-- 发布时间：2017/1/14 11:21:00
--
\'\'\'\'自动增加行
If e.DataCol.Name = "编号组成" OrElse e.DataCol.Name = "格式设置" Then
If e.DataRow.IsNull("编号组成") = False OrElse e.DataRow.IsNull("格式设置") = False
Dim t As Table = Tables(e.DataTable.Name)
If t.Current.Index = t.Rows.Count - 1 Then t.AddNew
End If
End If
上述代码：增加2行，不知是什么原因
-- 发布时间：2017/1/14 11:42:00
--
测试没有问题