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) If Result = DialogResult.Yes Then dr.load(False) '运行速度慢 End If End If
|