共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：当删除表中所有的行后再执行新增一行时出错
1楼
kgdwxfmqj520 发表于：2013/12/7 22:54:00当删除表中所有的行后再执行新增一行时出错
此主题相关图片如下：qq截图20131207225611.jpg
此主题相关图片如下：qq截图20131207225611.jpg'新增
With Tables("库存")
If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
库存_库存编辑_状态="新增"
.AddNew()
.Cols("当前库存").AllowEdit= True
' Forms("库存编辑").Controls("TextBox1").BindingField = "" '"库存.货品编码"
Else
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")
End If
End With
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
t1.Select
2楼
kgdwxfmqj520 发表于：2013/12/8 1:02:00帮我看看
3楼
kgdwxfmqj520 发表于：2013/12/8 9:27:00
4楼
kgdwxfmqj520 发表于：2013/12/8 9:30:00来帮帮我
共4 条记录, 每页显示 10 条, 页签:
[1]