主题：自定义录入界面之一的改进

在帮助的自定义录入界面之一中原代码 只能在凭证明细中使用，但是实际输入时一般都是在关联表使用，为此我设计了以下代码，但是实现不了目的，是什么原因，该怎么改进？

Dim tbl As Table = Tables("核算项目选择_Table1")
If tbl.Current IsNot Nothing Then
     Select Case e.Table.name
            Case "凭证明细"
                Tables("凭证明细").Current("项目编号") = tbl.Current("项目编号")
                Tables("凭证明细").Current("核算项目") = tbl.Current("项目名称")
            Case "会计凭证.凭证明细"
                Tables("会计凭证.凭证明细").Current("项目编号") = tbl.Current("项目编号")
                Tables("会计凭证.凭证明细").Current("核算项目") = tbl.Current("项目名称")
        End Select
End If
Forms("核算项目选择").Close()