主题：事件列不能输入单引号

这个状况只有自己在编码上想办法解决了

If e.DataCol.Name = "第一列" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("第一列 = '" & e.DataRow("第一列").Replace("'","''") & "'")
    If dr IsNot Nothing Then '
        e.DataRow("第二列") = dr("第二列")
    End If
End If