Question

易语言编译后的软件提示“运行时出错！ 错误代码：5 错误信息：数据或数组类型不匹配”

.版本 2
.支持库 iext

.子程序 _窗口8_创建完毕
.局部变量 局部_临时A, 文本型
.局部变量 局部_临时B, 文本型
.局部变量 局部_临时C, 文本型
.局部变量 局部_临时D, 文本型
.局部变量 局部_临时E, 文本型
.局部变量 局部_临时F, 文本型
.局部变量 局部_临时G, 文本型
.局部变量 局部_记录集, 文本型
.局部变量 查询语句, 文本型
.局部变量 局部_计次, 整数型
.局部变量 索引, 整数型
.局部变量 记录集, 整数型

.如果真 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 取当前目录 () ＋ “\ex\1.xls;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假)
信息框 (“数据库连接失败！”, #错误图标, , )
返回 ()
.如果真结束
查询语句 ＝ “select * from [Sheet1$]”
记录集 ＝ 外部数据库1.查询 (查询语句)
.如果真 (记录集 ＝ 0)
信息框 (“查询失败!”, #错误图标, , )
返回 ()
.如果真结束
外部数据库1.到首记录 (记录集)
局部_计次 ＝ 1
超级列表框1.插入列 (, “序号”, 80, , , )
超级列表框1.插入列 (, “姓名”, 80, , , )
超级列表框1.插入列 (, “出生日”, 80, , , )
超级列表框1.插入列 (, “QQ”, 80, , , )
超级列表框1.插入列 (, “电话”, 80, , , )
超级列表框1.插入列 (, “邮箱”, 80, , , )
超级列表框1.插入列 (, “微博”, 80, , , )
超级列表框1.插入列 (, “住址”, 80, , , )
.判断循环首 (外部数据库1.尾记录后 (记录集) ＝ 假)
局部_临时A ＝ 外部数据库1.读 (记录集, 1)
局部_临时B ＝ 外部数据库1.读 (记录集, 2)
局部_临时C ＝ 外部数据库1.读 (记录集, 3)
局部_临时D ＝ 外部数据库1.读 (记录集, 4)
局部_临时E ＝ 外部数据库1.读 (记录集, 5)
局部_临时F ＝ 外部数据库1.读 (记录集, 6)
局部_临时G ＝ 到文本 (外部数据库1.读 (记录集, 7))
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (局部_计次))
超级列表框1.置标题 (索引, 1, 局部_临时A)
超级列表框1.置标题 (索引, 2, 局部_临时B)
超级列表框1.置标题 (索引, 3, 局部_临时C)
超级列表框1.置标题 (索引, 4, 局部_临时D)
超级列表框1.置标题 (索引, 5, 局部_临时E)
超级列表框1.置标题 (索引, 6, 局部_临时F)
超级列表框1.置标题 (索引, 7, 局部_临时G)
外部数据库1.到后一记录 (记录集)
局部_计次 ＝ 局部_计次 ＋ 1
.判断循环尾 ()
外部数据库1.关闭记录集 ()

Answer 1

你的数组AA()和t()在调用那个函数FuzzyEvalution()之前，应该用Redim来初始化，并对数组元素赋值。比如：redimAA(3,4),t(5)AA(0,0)='赋值过程你自己写然后再：　CC=FuzzyEvalution(AA(m,n),t(i))这样，就没问题了。

追问

你复制粘贴的那个答案？
发给我地址
我好对比