If Tx1.Text = "你好" Then
Tx2.Text = "你也好"
Clipboard.Clear: Clipboard.SetText Tx2.Text + NameID: Exit Sub
End If

在Tx1.Text框上输入"你好" 在Tx2.Text显示"你也好"并复制到写字板
但是在Tx1.Text框上粘贴"你好" 程序就会报错,如何解决.

等待高手!

报什么错都不说?
把错误描述贴出来~

我试了试，好像没错：
Private Sub Command1_Click()
Dim NameID As String

NameID = "123"
If Tx1.Text = "你好" Then
Tx2.Text = "你也好"
Clipboard.Clear
Clipboard.SetText Tx2.Text + NameID

Exit Sub

End If

End Sub

楼上的NAMEID是什么作用?好象多余吧?

如何把一个数据库表DBF相同字段的数据复制到另一个空DBF中去