DataColChanging事件
If e.DataCol.name = "第一列" Then If val(e.newvalue) >= 10 ^ 9 Then msgbox("错误") e.cancel = True End IfEnd If