以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  haschanges 与CurrentChanged 有冲突?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144817)

--  作者:nxhylczh
--  发布时间:2019/12/30 19:13:00
--  haschanges 与CurrentChanged 有冲突?
如果一个表  在CurrentChanged里有代码 BeforeSelChange 判读表是否修改,无法实现
请问有什么办法呢?

If e.OldRange.RowSel <> e.NewRange.RowSel \'如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then \'而且原来选择的是一个有效的数据行
        Dim Z02 As Table = e.Form.Controls("Z02").Table
\'msgbox(z02.DataTable.HasChanges)
        If z02.DataTable.HasChanges= True Then
            If MessageBox.show("转账规则定义表有数据没有保存,是否保存?","提示",MessageBoxButtons.YesNo) =DialogResult.Yes  Then
                e.Cancel = True
            End If
        End If
    End If
End If


--  作者:有点蓝
--  发布时间:2019/12/30 20:25:00
--  
CurrentChanged里有什么代码?