如何实现:

"表B"的档案编号为"表A"的项目编号加上自行生成的序号！！！

如:  003001

      003002

      003003

      003004

      003.....

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

点击浏览该文件:乡镇、村、组别判断,编号.table

If e.DataCol.Name = "项目名称" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("项目名称") Then \'身份证号码是否为空
        e.DataRow("项目代码") = Nothing \'如果为空,则清除出生日期
    Else
        Dim dr As DataRow
        dr = DataTables("表A").Find("项目名称 = " & "\'" & e.DataRow("项目名称") & "\'" )
        If dr IsNot Nothing \'如果找到, 则设置各列内容
            e.DataRow("项目代码")= dr("项目编号")
        End If
    End If
End If

If e.DataCol.Name = "项目名称" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("项目名称") Then \'身份证号码是否为空
        e.DataRow("项目代码") = Nothing
        e.DataRow("档案序号") = Nothing
    Else
        e.DataRow("档案序号")= e.DataRow("项目代码") & Format(e.DataTable.Compute("Count(项目名称)","[项目名称] = \'" & e.DataRow("项目名称") & "\' And [_identify] < 100" & e.DataRow("_Identify")),"000")
    End If
End If

 是不是这样?

没看懂，就不能多填点数据说明问题吗？

blackzhu兄辛辛苦苦为你写了这么多代码，你的回答倒是精简得很，别说一声谢谢，到底是哪里不对你也懒得说？

狐爸,这位仁兄一向如此的.

我看着应该是这样的呀

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

点击浏览该文件:乡镇、村、组别判断,编号.table

呵呵，我测试也是ok的。

"表B"的档案编号为："表A"的项目编号加上自行生成的序号！！！

如:  003001

      003002

      003003

      003004

      003.....

谢谢