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

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

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

请用4楼代码。