主题：怪事！求助

开发版用户。今天对开发的一个系统做更改。其中有几句代码放到窗口作为单击事件触发时，无法运行。真是奇了怪了！

代码应该没有问题（将这几句代码复制到命令窗口，运行正常）。

代码很简单：

Dim txl As String
If InputValue(txl, "请输入!", "请输入要删除的通讯录:") Then
DataTables("任务").DeleteFor("[通讯录名称] ='"& txl &"'")
End If

请高手帮忙！

1、是否正版，如果是盗版，这是正常的，盗版会有一些莫名其妙的问题。

2、如果是正版，可能是激活码错了，你可以联系客服QQ:800014337，核对一下激活码。

1、是否正版，如果是盗版，这是正常的，盗版会有一些莫名其妙的问题。

2、如果是正版，可能是激活码错了，你可以联系客服QQ:800014337，核对一下激活码。

刚才又试了一下，就是把中间的一句代码删掉，也无法运行.

Dim txl As String
If InputValue(txl, "请输入!", "请输入要删除的通讯录:") Then
End If

应该是InputValue(txl, "请输入!", "请输入要删除的通讯录:") 这里出问题，因为对话框根本就没有出现，程序像是进入了死循环，退出都不行。

正版软件。我联系客服吧。

你可以先用这个方法分析一下看看：

http://www.foxtable.com/help/topics/1485.htm

 代码测试没有问题，不是这句代码的错

Dim txl As String
If InputValue(txl, "请输入!", "请输入要删除的通讯录:") Then
    msgbox(1)
End If