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

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

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

呵呵，我测试也是ok的。

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

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

呵呵，你的对，我用的就是你的，我只是修改了一下他的增加行按钮的代码。

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
        Dim drs As List(of DataRow) = e.DataTable.Select("[项目名称] = '" & e.DataRow("项目名称") & "' And 档案序号 Is Not Null", "[_Identify]")
        If drs.count = 0 Then
            e.DataRow("档案序号")= e.DataRow("项目代码") & "001"
        Else
            Dim bn As String = drs(drs.count -1)("档案序号").substring(3)
            Dim cnt As Integer
            If Integer.TryParse(bn,cnt) Then
                 e.DataRow("档案序号")= e.DataRow("项目代码") & Format(cnt +1,"000")
            End If
        End If
    End If
End If