- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为新增记录当前行赋值，单元格内容没有改变 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34874)
-- 发布时间：2013/6/18 11:34:00
-- 为新增记录当前行赋值，单元格内容没有改变
为新增记录当前行赋值，单元格内容没有改变,仍然是空白
Tables("维修_Table2").Current("REPAIRNO")=e.Form.Controls("REPAIRNO").Value
此主题相关图片如下：qq截图20130618112849.jpg
-- 发布时间：2013/6/18 11:37:00
--
贴出新增按钮的完整代码
-- 发布时间：2013/6/18 11:39:00
--
Tables("维修_Table2").AllowEdit=True
With Tables("维修_Table2")
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
.AddNew()
.Current("REPAIRNO")=e.Form.Controls("REPAIRNO").Value
Else
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")
End If
End With
Dim tx As WinForm.TextBox = e.Form.Controls("COMPUTERNAME")
tx.Select()
Tables("维修_Table2").Current("REPAIRNO")=e.Form.Controls("REPAIRNO").Value
-- 发布时间：2013/6/18 11:47:00
--
With Tables("维修_Table2")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果没有行，或者当前行未曾修改
.AllowEdit=True
Dim r As Row = .AddNew()
r("REPAIRNO")=e.Form.Controls("REPAIRNO").Value
Else
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")
End If
End With
-- 发布时间：2013/6/18 12:12:00
--
还是加不到
-- 发布时间：2013/6/18 12:33:00
--
上例子吧
-- 发布时间：2013/6/18 13:55:00
--
原来是这样把，row改为datarow就可以了
Dim r As Row
Dim r1 As DataRow
Tables("维修_Table2").DataTable.Save()
Tables("维修_Table2").AllowEdit=True
With Tables("维修_Table2")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果没有行,或者当前行未曾修改
r= .AddNew()
r1=.Current.DataRow
r1("REPAIRNO")=e.form.Controls("REPAIRNO").Value
Else
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")
End If
End With
还是要感谢狐爸让我想到了，非常谢谢
-- 发布时间：2013/6/20 8:51:00
--
我也在做同样的项目,方便发代码吗
-- 发布时间：2013/6/20 8:56:00
--
我也在做同样的项目,方便发代码吗
最合适的代码都在帮助中，与其期待人家的项目，不如踏踏实实按顺序学习三遍帮助