我有增加按钮代码 ,我想增加后,未保存的空行,换行后可以自动删除
currentchanged 事件代码;
Dim ct As Table = CurrentTable
Dim name As String
For Each cl As Col In ct.Cols
If cl.name.Endswith("名称") Then
name = cl.name
Exit For
End If
Next
For Each r As Row In ct.Rows
If r.Isnull(name)=False Then
r.save()
Forms("基本设置").Controls("增 加").Enabled = True
Forms("基本设置").Controls("修 改").enabled = True
Forms("基本设置").Controls("删 除").enabled = True
Forms("基本设置").Controls("保 存").enabled = False
Forms("基本设置").Controls("取 消").enabled = True
Forms("基本设置").Controls("导 出").enabled = True
Forms("基本设置").Controls("退 出").enabled = True
End If
Next
谢谢