主题：复制粘贴不能触发这段代码

Drawcell事件

If e.Col.name = "第一列" Then
    Dim fdr As DataRow = DataTables("表A").find("第一列 = '" & e.Row("第一列") & "'")
    If fdr IsNot Nothing Then
        e.Table.DataTable.AddUserStyle("样式1", Color.red, color.black)
        e.style = "样式1"
    End If
End If

第一列的数据是粘贴进去的，只能双击单元格才能触动上面的代码，如果行数很多粘贴进去一个个点很麻烦。怎么弄？