我的需求是：只要最后一行有数据，就新增一行
用以下代，放到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
加好友 
发短信
Post By：2023/7/17 9:38:00 [只看该作者]
