标题：如何实现如下效果，谢谢

如何实现:

"表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

 

 

 

 是不是这样?

no

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

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

自己修改一下,我的可以用的.

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

我看着应该是这样的呀

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

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

呵呵，我测试也是ok的。

点击“表B”录入窗口的“增加”按钮实现增加一行，并且实现如下效果：

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

如:  003001

      003002

      003003

      003004

      003.....

谢谢

 

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

点击浏览该文件:管理项目24.rar

我的不是对的吗,奇怪!