以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如果 表 数据 已经 保存，则创建一行，否则，提示请保存数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24482)
--  作者：akzzwj
--  发布时间：2012/10/15 14:56:00
--  如果 表 数据 已经 保存，则创建一行，否则，提示请保存数据

我的代码是这样的：

If Tables("计量单位").Current.Save() Then
    With Tables("计量单位")
        If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
            Tables("计量单位").AddNew()
        End If
    End With
Else
    massagebox("请先保存数据!")
End If

请问上述代码哪里出错了，请各位高手帮我看一下

 
--  作者：lin_hailun
--  发布时间：2012/10/15 15:04:00
--  
 判断是否保存可以这样：

 If CurrentTable.Current.DataRow.RowState <> DataRowState.Added AndAlso CurrentTable.Current.DataRow.RowState <> DataRowState.Modified Then

 End If
--  作者：布莱克朱
--  发布时间：2012/10/15 20:16:00
--  
If DataTables("产品").HasChanges Then
    If MessageBox.Show("产品表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("产品").Save()
    End If
Else
    DataTables("产品").AddNew
End If