以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怪事！求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53472)
--  作者：cdwanghc
--  发布时间：2014/7/8 18:18:00
--  怪事！求助

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

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

代码很简单：

 

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

 

请高手帮忙！
--  作者：狐狸爸爸
--  发布时间：2014/7/8 18:22:00
--  

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

2、如果是正版，可能是激活码错了，你可以联系客服QQ:800014337，核对一下激活码。
--  作者：狐狸爸爸
--  发布时间：2014/7/8 18:22:00
--  

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

2、如果是正版，可能是激活码错了，你可以联系客服QQ:800014337，核对一下激活码。
--  作者：cdwanghc
--  发布时间：2014/7/8 18:24:00
--  

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

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

 

应该是InputValue(txl, "请输入!", "请输入要删除的通讯录:") 这里出问题，因为对话框根本就没有出现，程序像是进入了死循环，退出都不行。
--  作者：cdwanghc
--  发布时间：2014/7/8 18:30:00
--  

正版软件。我联系客服吧。
--  作者：cdwanghc
--  发布时间：2014/7/8 18:34:00
--  
谢谢啦
--  作者：狐狸爸爸
--  发布时间：2014/7/8 18:42:00
--  

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

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

 
--  作者：有点甜
--  发布时间：2014/7/8 18:59:00
--  

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

 

Dim txl As String
If InputValue(txl, "请输入!", "请输入要删除的通讯录:") Then
    msgbox(1)
End If
--  作者：cdwanghc
--  发布时间：2014/7/9 9:39:00
--  
联系客服了，机器码激活码没有问题。
--  作者：cdwanghc
--  发布时间：2014/7/9 9:41:00
--  
没有变化？还是原来的

小燕 2014-7-9 09:33:03

不是激活码的问题喔

九万里 2014-7-9 09:33:13

那是怎么回事？
09:33:48
小燕 2014-7-9 09:33:48

您到论坛回复说已经联系过客服核对不是激活码的问题

小燕 2014-7-9 09:33:58

技术人员会给您答复的