PUBLIC array1(10,1)
if sqlexec(hh, 'Select distinct 杂志名称 From 征订数据库 INTO ARRAY array1') > 0 这句老是报错,字符串格式不对吗?
Thisform.combo1.Recordsource='array1'
Thisform.combo1.Refresh
else
Messagebox("后台读取数据失败!")
endif
------解决方案--------------------------------------------------------
不是报错,是返回值小于0,而执行了
Messagebox("后台读取数据失败!")
吧。
标准 SQL 不支持 INTO ARRAY array1 子句,改为:
if sqlexec(hh, 'Select distinct 杂志名称 From 征订数据库','cT1') > 0 这句老是报错,字符串格式不对吗?
Thisform.combo1.Recordsource='cT1'
Thisform.combo1.Refresh
else
Messagebox("后台读取数据失败!")
endif