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

在申请表中 一、错误判断 如果钩选[是否退耕还林][林种]只能为“防护林”或“经济林”，反过来说退耕还林只有“防护林”或“经济林”；[是否重点公益林]、[是否地方公益林]二列中只能钩选其中之一或全不选，并且[林种]只能为“防护林”，反过来说“防护林”可以是[是否重点公益林]或[是否地方公益林]或二者都不是。否则提示出错。 二、自动编号 1、乡镇序号：以乡名顺序编号从1开始，当[乡名]列为另一个乡名时又从1开始顺序编号………… 2、宗地序号（2位）：同一乡名、村名、组别的同一法定代表人（重复行）从01开始顺序编号。如李本发有4行编号01--04，李加顺有7行编号01--07 请求大师指点，先谢了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:林改信息管理系统.rar

两个编号的近钮代码：

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

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

谢谢C版！第一个问题已重新表述，乡镇序号没有达到目的。你的代码是乡名排除重复而我的要求是包括重复。如长乐乡有9行乡镇序号1---9，龙潭镇有15行乡镇序号1--15 ……

稍作修改乡镇序号达到目的： Dim str As String For Each dr As DataRow In DataTables("申请表").DataRows str = "[乡名] = '" & dr("乡名") & "'" str = str & " And [乡名] = '" & dr("乡名") & "' And [_Identify] < " & dr("_Identify") dr("乡镇序号") =Tables("申请表").Compute("Count(乡名)",str)+1 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

对不起了！都是万能五笔惹的祸，我仔细检查一下