错误(10044): 不能将“逻辑型”数据转换到“文本型”数据。

showtime

[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哪行了  估计哪出问题了呢大神们。

御风软件

组合框1.内容 ＋ “&sxb=” ＋ 编辑框1.内容 ＝ “&tta=” ＋ 编辑框11.内容

这里是+号才对

showtime

@红颜似水

694336034

出现后光标停留的地方就是出错的行数，如果子程序是关闭的打开调试就会知道那行出错后，看参数，自行修正