主题：[求助]错误判断及自动编号

两个编号的近钮代码：

Dim dt As Table = Tables("申请表")
For i As integer = 0 to dt.rows.count -1
    if i = 0 Then
        dt.Rows(i)("乡镇序号") = 1
    Else
        if dt.Rows(i)("乡名") = dt.Rows(i-1)("乡名") Then
            dt.Rows(i)("乡镇序号") = dt.Rows(i-1)("乡镇序号")
        Else
            dt.Rows(i)("乡镇序号") = dt.Rows(i-1)("乡镇序号")+1
        End If
    End If
Next

Dim str As String
For Each dr As DataRow In DataTables("申请表").DataRows
    str = "[乡名] = '" & dr("乡名") & "'And [村名] = '" & dr("村名") & "' And [组别] = '" & dr("组别") & "'"
    str = str  & " And  [单位(个人)] = '" & dr("单位(个人)") & "' And [_Identify] < " & dr("_Identify")
    dr("宗地序号") = Format(Tables("申请表").Compute("Count(乡名)",str)+1,"00")
Next

问题一象绕口令，没理解。

楼主啊，被你搞的晕了。
代码没错，但就是达不到要求，查了半天，原来表中是“济经林”，而要求是“经济林”。
写了一个判断，其它两个自己加吧。

Dim dr1 As DataRow = e.DataRow
If e.DataCol.Name = "是否为退耕还林" And dr1("林种") <> "防护林" AndAlso dr1("林种") <> "经济林" Then
    If e.NewValue = True Then
        MessageBox.Show("提示!", "提示")
    End If
End If