主题：设置成下拉式列的数据如何复制到下行

   凭证录入表的摘要列，在项目属性AFTEROPENJECT中被设置成下拉式窗口列，Tables("凭证录入表").Cols("摘要").DropForm ="凭证录入辅助摘要下拉窗口"

 你的代码写得十分错乱。直接说，你做什么操作以后，要达到什么效果，用实例说明。

 凭证录入表的摘要列，在项目AFTEROPENJECT中被设置成下拉式窗口列，按回车键转入下一列时，将摘要中内容复制到下一列，如何操作？

if e.datacol.name = "摘要" Then
    Dim fdr As DataRow = e.DataTable.find("_Identify > " & e.DataRow("_Identify"), "_Identify")
    If fdr IsNot Nothing Then
        fdr("摘要") = e.DataRow("摘要")
    End If
End If

在表属性DATACOLCHANGED中， 用Dim c1 As String = e.DataRow("摘要") '找出当前行摘要，用 Tables("凭证录入表").Position = Tables("凭证录入表").Position+1转入下一行，

请用4楼代码。