事件列不能输入单引号“'”,与事件表达式冲突,请测试。
'表事件-数据-DataColChangedIf e.DataCol.Name = "第一列" Then Dim dr As DataRow dr = e.DataTable.Find("第一列 =" & "'" & e.DataRow("第一列") & "'") If dr IsNot Nothing Then '
e.DataRow("第二列") = dr("第二列") End IfEnd If