Datacolchanging事件
Select Case e.DataCol.Name Case "第二列", "第三列", "第四列" If e.DataRow("发出人") <> user.Name Then e.Cancel = True End If Case "第六列", "第七列", "第八列" If e.DataRow("接收人") <> user.Name Then e.Cancel = True End IfEnd Select