我的需求是:只要最后一行有数据,就新增一行
用以下代,放到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