主题：为新增记录当前行赋值，单元格内容没有改变

为新增记录当前行赋值，单元格内容没有改变,仍然是空白

Tables("维修_Table2").Current("REPAIRNO")=e.Form.Controls("REPAIRNO").Value

 

 

此主题相关图片如下：qq截图20130618112849.jpg

贴出新增按钮的完整代码

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

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

还是加不到

上例子吧

原来是这样把，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

 

 

还是要感谢狐爸让我想到了，非常谢谢

我也在做同样的项目,方便发代码吗

 

最合适的代码都在帮助中，与其期待人家的项目，不如踏踏实实按顺序学习三遍帮助