Dim dr As DataRow = e.Row.DataRow '取当前行 Dim a = e.Row(e.Col.name) Dim b = dr.SQLGetValue(e.Col.name) If a <> cstr(iif(b.Gettype.name="DBNull",Nothing,b)) Then
Dim Result As DialogResult
Result = MessageBox.Show("单元格前后台数据不一致,是否重新加载", "提示", MessageBoxButtons.YesNo)