以文本方式查看主题

-  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)

--  作者:pcxjxjhkw
--  发布时间:2017/1/13 22:51:00
--  [求助]自动新增一行

在最末一行输入字符或从下拉列表中选择值时,自动增加一行,有点类似于【高级筛选】

 


--  作者:有点蓝
--  发布时间:2017/1/13 23:02:00
--  
自动增加行设置为true

图片点击可在新窗口打开查看

--  作者:pcxjxjhkw
--  发布时间:2017/1/13 23:20:00
--  
以下是引用有点蓝在2017/1/13 23:02:00的发言:
自动增加行设置为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

--  作者:pcxjxjhkw
--  发布时间: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
--  
测试没有问题