如果一个表 在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