主题：【请教】同一行内a、b、c三列的值，要求禁止任何两者之间重复

第一列、第二列、第三列不能重复，DataColChanging时间：

Select Case e.DataCol.name
    Case "第一列","第二列","第三列"
        If e.NewValue IsNot Nothing Then
            Dim nms() As String =  {"第一列","第二列","第三列"}
            For Each nm As String  In nms
                If nm <> e.DataCol.name AndAlso e.NewValue = e.DataRow(nm) Then
                    e.cancel = True
                End If
            Next
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目82.table