以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助－复制问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194384)
--  作者：lovetoday
--  发布时间：2024/12/4 17:27:00
--  求助－复制问题
老师，我用一个按钮，代码是：Dim s As String = "砂浆"
                                        ClipBoard.SetText(s)
在我点击这个按钮后，点到单元格后按Ctrl+V，砂浆，就会填充到这个单元格中，我现在想在一个按钮中，如何定代码，才能实现，点击此按钮后，按Ctrl+V，能在我点的单元格里填充“砂浆”，在这个单元格的右边一个单元格中填充“砂”，请老师指导代码
--  作者：有点蓝
--  发布时间：2024/12/4 17:45:00
--  
keydown事件
If e.Control AndAlso Keys.V Then
    Vars("a") = True
End If 

DataColChanged事件
If Vars("a") = True AndAlso e.DataCol.IsString AndAlso e.NewValue > "" Then
    Dim i As Integer = Tables(e.DataTable.name).cols(e.DataCol.name).index
    SystemReady = False
    e.DataRow(Tables(e.DataTable.name).cols(i + 1).name) = left(e.newvalue, 1)
    Vars("a") = False
    SystemReady = True
End If