标题：求助－复制问题

1楼

lovetoday 发表于：2024/12/4 17:27:00

老师，我用一个按钮，代码是：Dim s As String = "砂浆"

ClipBoard.SetText(s)

在我点击这个按钮后，点到单元格后按Ctrl+V，砂浆，就会填充到这个单元格中，我现在想在一个按钮中，如何定代码，才能实现，点击此按钮后，按Ctrl+V，能在我点的单元格里填充“砂浆”，在这个单元格的右边一个单元格中填充“砂”，请老师指导代码

2楼

有点蓝 发表于：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

共2 条记录, 每页显示 10 条, 页签: [1]