e.Text = lzf e.cancel = True
上面2个有冲突，只能保留一个，e.cancel = True会使的单元格处于编辑状态，这时赋值是没有用的
或者改到datacolchanging事件
If Tables(e.DataTable.name).FindRow(e.DataRow) = 1 Then
'-------重复值检测---------------------
For Each cl As DataCol In e.DataTable.DataCols
If cl.name <> e.DataCol.Name Then
If e.DataRow(cl.Name) = e.NewValue And e.NewValue > "" Then
MessageBox.Show("标题列不能重复!确认此列标题前,请删除其他列的相同标题","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel = True
Tables(e.DataTable.name).Select(Tables(e.DataTable.name).RowSel,Tables(e.DataTable.name).ColSel-1)
Return
End If
End If
Next
End If
加好友 
发短信
Post By：2020/1/7 14:16:00 [显示全部帖子]
