If Tables("表A").rows(0).DataRow.RowState = DataRowState.Modified Then msgbox("修改了")End If
http://www.foxtable.com/webhelp/scr/0428.htm