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

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

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

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

谢谢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

逻辑错误判断：
 如果钩选[是否退耕还林] [林种]只能为“防护林”或“经济林”，反过来说退耕还林只有“防护林”或“经济林”；如果钩选[是否重点公益林]或者钩选[是否地方公益林]，[林种]只能为“防护林”。反过来说“防护林”可以是重点公益林或地方公益林。否则提示出错

顶

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