为新增记录当前行赋值，单元格内容没有改变 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为新增记录当前行赋值，单元格内容没有改变

共有5072人关注过本帖树形打印复制链接主题：为新增记录当前行赋值，单元格内容没有改变

longtechwj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

为新增记录当前行赋值，单元格内容没有改变 发帖心情

Post By：2013/6/18 11:34:00 [显示全部帖子]

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

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

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

longtechwj

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：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

longtechwj

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：2013/6/18 12:12:00 [显示全部帖子]

还是加不到

longtechwj

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：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

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

下一主题 >> << 上一主题

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