以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  项目发布  (http://foxtable.net/bbs/list.asp?boardid=5)
----  当删除表中所有的行后再执行新增一行时出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=5&id=43464)

--  作者:kgdwxfmqj520
--  发布时间:2013/12/7 22:54:00
--  当删除表中所有的行后再执行新增一行时出错
当删除表中所有的行后再执行新增一行时出错
图片点击可在新窗口打开查看此主题相关图片如下: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

--  作者:kgdwxfmqj520
--  发布时间:2013/12/8 1:02:00
--  
帮我看看
--  作者:kgdwxfmqj520
--  发布时间:2013/12/8 9:27:00
--  
图片点击可在新窗口打开查看
--  作者:kgdwxfmqj520
--  发布时间:2013/12/8 9:30:00
--  
来帮帮我