[求助]新增一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]新增一行

共有1335人关注过本帖树形打印复制链接主题：[求助]新增一行

puma

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：341 积分：2852 威望：0 精华：0 注册：2023/6/7 16:07:00

[求助]新增一行 发帖心情

Post By：2023/7/17 9:38:00 [显示全部帖子]

我的需求是：只要最后一行有数据，就新增一行

用以下代，放到DataColChanging后，只要修改自动一行，效果不好，有自动新增行的案例吗？

Select Case e.DataCol.Name

Case "列"

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行

Dim max As Integer = DataTables("表").Compute("max(ID)")

If dr("列") IsNot Nothing Then

' MessageBox.show("1")

DataTables("列").DataCols("ID").DefaultValue = """" & max & """"

DataTables("列").AddNew()

Else

e.Cancel = True

End If

End Select

puma

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：341 积分：2852 威望：0 精华：0 注册：2023/6/7 16:07:00

Post By：2023/7/17 9:48:00 [显示全部帖子]

这个表是子表，我有4列数据，第一列是id，第二列第三列是数据，第四列是表达式。

需求是第二列第三列 is Nothing 不新增行，

第二列第三列 isnot Nothing 新增行

主题：[求助]新增一行