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

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

 

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

 设置这一列为禁止直接输入行不？

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

 

有2种选择：

 

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

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

 

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

 列属性，列表项目有一个禁止直接输入的属性。

这个问题能解决吗？

 

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

 

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

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

 没有好的方法，你用第二个方案吧。

把ClipBoard的内容，存起来，楼主先自己弄一下。

为什么不换个思路？

在Datacolchanging事件中判断输入的值，是否包括在列表项目中，如果不是的，则取消输入？

谢谢。

'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

 

还能更简单吗？