专家坐堂-请老师修改新增行代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请老师修改新增行代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100960)

--  作者：jamhuton
--  发布时间：2017/5/22 15:15:00
--  请老师修改新增行代码

With Tables("客户")
If .Current.DataRow.RowState = DataRowState.Unchanged Then
客户状态="新增"
.AddNew()
Else
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存>,否则请<撤销修改>! ")
End If
End With

--  作者：有点色
--  发布时间：2017/5/22 15:22:00
--

With Tables("客户")

If .Current.DataRow.RowState = DataRowState.Unchanged Then

Dim nr As Row = .AddNew()

        nr("客户状态") = "新增"

Else

MessageBox.Show("该记录已经被修改,若想保存结果请先<保存>,否则请<撤销修改>! ")

End If

End With

--  作者：jamhuton
--  发布时间：2017/5/22 15:26:00
--

.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.4.22.1
错误所在事件：窗口,客户,Button5,Click
详细错误信息：
未将对象引用设置到对象的实例。

--  作者：有点色
--  发布时间：2017/5/22 16:20:00
--
With Tables("客户")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then
        Dim nr As Row = .AddNew()
        nr("客户状态") = "新增"
    Else
        MessageBox.Show("该记录已经被修改,若想保存结果请先<保存>,否则请<撤销修改>! ")
    End If
End With

--  作者：blackzhu
--  发布时间：2017/5/23 9:00:00
--

If DataTables("客户").HasChanges Then
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存>,否则请<撤销修改>! ")
Return
Else
Dim myr As Row = Tables("客户").addnew
myr("状态") ="新增"
End If