With Tables("电梯信息表") If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改 电梯信息表_状态="新增" .AddNew() .Cols("出厂编号").AllowEdit= True Else MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")
End If
End With Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1") t1.Select