以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70218)
--  作者：yongxuanchen
--  发布时间：2015/6/17 14:07:00
--  问题

With Tables("电梯信息表")
    If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
        电梯信息表_状态="新增"
        .AddNew()
        .Cols("出厂编号").AllowEdit=  True      
    Else
        MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")
       
    End If
   
End With
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
t1.Select

 

当数据表没有行的时候，按下上面的新增行命令，提示错误。代码应该怎么修改
--  作者：Bin
--  发布时间：2015/6/17 14:12:00
--  
加一个IF条件判断把代码圈住

if Tables("电梯信息表").current isnot nothing then
  \'你原来的代码
end if
--  作者：yongxuanchen
--  发布时间：2015/6/17 14:36:00
--  解决
解决