主题：如何判断录入？谢谢

If e.Col.Name = "第三列" Then
    If e.Row("第三列") = 0 Then
        e.Row("第三列") = Nothing
    Else If Tables("表A").Rows(0)("第三列")=Nothing Then '判断是否是从第一行输入
        MessageBox.Show("必须从第一行录入")
        e.Row("第三列")=Nothing
    Else
        Dim i As Integer
        If e.Row.Index >0 Then
            i=e.Row.Index-1
            If e.Row("第三列") < Tables("表A").Rows(i)("第三列") Then '小于则
                MessageBox.Show("小于上一行")
                e.Row("第三列")=Nothing
            Else If e.Row("第三列")-Tables("表A").Rows(i)("第三列") >1 Then '大于则
                MessageBox.Show("大于上一行 +1")
                e.Row("第三列")=Nothing
            End If
        End If
    End If
End If

AfterEdit后面

应该在 DataColChanging 里面添加

If e.DataCol.Name="批量" Then
    MessageBox.Show(e.NewValue)
End If

其他自己修改喽！！

在 DataColChanged  添加

不过我个人感觉还有很多问题，，

If e.DataCol.Name="第一列" Then
    Dim dq As Double = CurrentTable.RowSel
    If Tables("表A").Rows(dq)("第一列") < 1 Then
        'MessageBox.Show("数据必须大于0") '不知道为什么这里会弹出两次提示
        e.DataRow("第一列")=Nothing
    End If
    If dq >0 Then
        Dim jg As Double = e.NewValue - DataTables("表A").DataRows(dq-1)("第一列")
        If jg>1 Or jg<0 Then
           ' MessageBox.Show("差值要比上一行小于2大于0")
            e.DataRow("第一列")=Nothing
        End If
    End If
End If

增加一个全局变量，比如命名为Val

PrepareEdit事件代码