精易论坛

标题: 错误(10044): 不能将“逻辑型”数据转换到“文本型”数据。 [打印本页]

作者: showtime 时间: 2013-12-5 08:42
标题: 错误(10044): 不能将“逻辑型”数据转换到“文本型”数据。
[e]
.版本 2
.支持库 internet
.支持库 iext2

.子程序取代理
.局部变量 get, 文本型
.局部变量 prot, 文本型
.局部变量 yys, 文本型
.局部变量组件句柄, 整数型
.局部变量组件数量, 整数型
.局部变量选择框, 选择框
.局部变量计次
.局部变量提交数据1, 文本型

组件数量＝取找到组件数目 (组件句柄)
.如果真 (组件数量＞ 0)
.变量循环首 (0, 组件数量－ 1, 1, 计次)
选择框＝取所找到组件 (组件句柄, 计次)
.如果真 (选择框.选中＝真)
prot ＝ prot ＋选择框.标题＋ “,”
.如果真结束
处理事件 ()
.变量循环尾 ()
.如果真结束

prot ＝编码_URL编码 (取文本左边 (prot, 取文本长度 (prot) － 1), , 假)
' 文本替换 (, 倒找文本 (prot, “,”, , 假), , “”)
' prot ＝子文本替换 (prot, “,”, “”, 倒找文本 (prot, “,”, , 假), 1, 真)

组件数量＝取找到组件数目 (组件句柄)
.如果真 (组件数量＞ 0)
.变量循环首 (0, 组件数量－ 1, 1, 计次)
选择框＝取所找到组件 (组件句柄, 计次)
.如果真 (选择框.选中＝真)
yys ＝ yys ＋选择框.标题＋ “,”
.如果真结束

.变量循环尾 ()
.如果真结束
yys ＝编码_URL编码 (取文本左边 (yys, 取文本长度 (yys) － 1), , 假)
提交数据1 ＝ “http://www.nmgbmw.com/api.asp?dd=11614&tqsl=” ＋编辑框4.内容＋ “&sxa=” ＋组合框1.内容＋ “&sxb=” ＋编辑框1.内容＝ “&tta=” ＋编辑框11.内容＋ “&ktip=” ＋编辑框6.内容＋ “&ports=” ＋编辑框3.内容＋ “&cf=1”

get ＝到文本 (HTTP读文件 (提交数据1))
.如果真 (get ≠ “”)
编辑框2.内容＝文本_删除空行 (get)
连续赋值 (假, 超级按钮1.禁止, 超级按钮2.禁止)
返回 ()
.如果真结束
信息框 (“获取失败!!!请稍后重试”, 48, )

[/e]

会出现错误(10044): 不能将“逻辑型”数据转换到“文本型”数据。
然后鼠标调到提交数据1哪行了估计哪出问题了呢大神们。

作者: 御风软件 时间: 2013-12-5 08:42
组合框1.内容＋ “&sxb=” ＋编辑框1.内容＝ “&tta=” ＋编辑框11.内容

这里是+号才对

作者: showtime 时间: 2013-12-5 08:43
@红颜似水

作者: 694336034 时间: 2013-12-5 08:44
出现后光标停留的地方就是出错的行数，如果子程序是关闭的打开调试就会知道那行出错后，看参数，自行修正

欢迎光临精易论坛 (https://125.confly.eu.org/)