主题：如何让粘贴操作无效

某一列只能输入列表项目内容，但如果原来剪贴板有内容，此时对该列进行粘贴操作，同样能写入其它内容。

AllowClipBoard主要是限制复制数据，如果增加一个限制粘贴的函数就好了。

禁止直接输入就不能选择列表项目了。

有2种选择：

方案1：进入该列时用“Clear”清除剪贴板内容；

方案2：进入该列时把剪贴板内容复制到其它地方，离开该列时再把内容计入剪贴板。

但都觉得不理想，最好是进入该列时不能粘贴数据，保留原来剪贴板内容不变。

这个问题能解决吗？

此主题相关图片如下：10.gif

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

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

谢谢。

'DataColChanging '禁止列表以外内容输入
If e.DataCol.Name = "列名"  Then '
    Dim s As String '
    For Each dc As DataCol In DataTables("表A").DataCols
        s = s & "|" & dc.name
    Next
    s = s.trim("|")
    Dim r As new List(of String)
    r.AddRange(s.split("|"))
    Dim lst2 As new List(of String)
    Dim val1 As String  = e.DataTable.GetComboListString("列名","[_Identify] <> " & e.DataRow("_Identify"))
    val1 = val1.Replace("|",",")
    lst2.AddRange(val1.split(","))
    For Each v As String In lst2
        If r.Contains(v) Then
            r.Remove(v)
        End If
    Next
    If r.Contains(e.NewValue) = False And e.NewValue IsNot Nothing Then
        e.Cancel = True
    End If
End If

'DataColChanging '禁止动态列表以外内容输入
If e.DataCol.Name = "列名"  Then '
    Dim jh As new List(of String)
    jh.AddRange((CurrentTable.Cols("列名").Combolist).split("|"))
    If jh.contains(e.NewValue) = False And e.NewValue IsNot Nothing Then
        e.Cancel = True
    End If
End If

还能更简单吗？

禁止指定列粘贴数据，下面代码可以达到要求。

'先设置全局var变量"ztb"

'BeforeSelChange 进入指定列时,清除剪贴板内容
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "第六列"
        If ClipBoard.ContainsText Then
            Vars("ztb") = ClipBoard.GetText()
            ClipBoard.Clear()
        End If
End Select

'AfterSelChange 离开指定列,内容重新读入剪贴板
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "第六列"
 Case Else
        If ClipBoard.ContainsText = False And ClipBoard.ContainsImage = False Then
            If Vars("ztb") IsNot Nothing Then
                ClipBoard.SetText(Vars("ztb"))
            End If
        End If
End Select