以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  模式窗口 绑定表 afterload事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122795)
--  作者：susu312
--  发布时间：2018/8/2 11:18:00
--  模式窗口 绑定表 afterload事件

If Tables("person").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("基本信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

If Tables("history").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("附加信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

 

 

老师，这个是模式窗口的afterload事件，我只绑定了person表，然后加了第二个判定语句就报错了？是不是本来就不行，那如何有好的解决办法
--  作者：有点甜
--  发布时间：2018/8/2 11:37:00
--  

If Tables("person").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("基本信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

If Tables("history").Current isnot nothing andalso Tables("history").Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
    MessageBox.Show("附加信息页面:请选择保存或取消!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If