以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动增加行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96320)
--  作者：jick0526
--  发布时间：2017/2/17 17:15:00
--  [求助]自动增加行
狐爸，请问下，表自动增加行代码该怎么写，比如我制100行的数据到表里，表会自动向下增加100行，还有当输入数据时，只要当最后一行任意单元格有数据时，表就会自动向下增加一行，而不需要手动按某个键才会向下增加，谢谢！
--  作者：有点色
--  发布时间：2017/2/17 17:27:00
--  

DataColChanged事件

 

Dim idx As Integer = Tables("表a").FindRow(e.DataRow)
If idx = Tables("表A").rows.count-1 Then
    dataTables("表A").addnew
End If
--  作者：jick0526
--  发布时间：2017/2/17 20:23:00
--  
谢谢狐爸
--  作者：jick0526
--  发布时间：2017/4/27 0:38:00
--  

DataColChanged事件

 

Dim idx As Integer = Tables("表a").FindRow(e.DataRow)
If idx = Tables("表A").rows.count-1 Then
    dataTables("表A").addnew
End If

老师，上面的代码我重置列后变成也会添加行了，麻烦老师帮我改下，谢谢！
--  作者：有点色
--  发布时间：2017/4/27 0:50:00
--  

那你可以写到AfterEdit事件去

 


If e.row.index = Tables("表A").rows.count-1 Then
    DataTables("表A").addnew
End If