csyx，我想改一下双飞输入模式，在帮我一下，感谢！
麻烦帮我改一下，我现在想直接用标签输出
cTemp = Sys(2015)
Create Cursor (cTemp) (code V(4), cnt I)
cFlds = '零零,零一,零二,零三,零四,零五,零六,零七,零八,零九' ;
+ ',一一,一二,一三,一四,一五,一六,一七,一八,一九' ;
+ ',二二,二三,二四,二五,二六,二七,二八,二九' ;
+ ',三三,三四,三五,三六,三七,三八,三九' ;
+ '四四,四五,四六,四七,四八,四九' ;
+ ',五五,五六,五七,五八,五九' ;
+ ',六六,六七,六八,六九' ;
+ ',七七,七八,七九,八八,八九,九九'
For ii = 1 to ALines(aFlds, cFlds, 1+4, ',')
Insert into (cTemp) (code) Values (aFlds[ii])
EndFor
*************************************************临时表
Select 历史
Scan all
Scatter name oRec Fields 期号,组选号
c双飞号 = Chrtran('XY,XZ,YZ', 'XYZ', m.oRec.组选号)
For jj = ALines(a双飞号, c双飞号, 1+4, ',') to 2 step -1
If a双飞号[jj] == a双飞号[jj-1] && 去重
a双飞号[jj] = ''
EndIf
EndFor
For jj = 1 to Alen(a双飞号)
If !Empty(a双飞号[jj])
c双飞号 = Chrtranc(a双飞号[jj], '0123456789', '零一二三四五六七八九')
Insert into (cTemp) (code, cnt) Values (c双飞号, 1)
EndIf
EndFor
EndScan
*****************************************************************************这里没看明白，好像是先写入到临时表，然后下面在写入到sql数据库里面
Select code, Sum(cnt) as cnt from (cTemp) group by code into cursor (cTemp)
Select (cTemp)
cUpd = ''
cFld = '[用户名]'
cVal = ['&user_']
Scan all
cUpd = cUpd + Textmerge(',[<<code>>]=<<cnt>>')
cFld = cFld + Textmerge(',[<<code>>]')
cVal = cVal + Textmerge(',<<cnt>>')
EndScan
Text to m.cSql Noshow textmerge pretext 1+2+4
If Exists (Select * from [历史统计双飞] where [用户名] = '<<user_>>')
Update [历史统计双飞] set <<Substr(cUpd,2)>> where [用户名] = '<<user_>>';
Else
Insert [历史统计双飞] (<<cFld>>) Values (<<cVal>>);
EndText
******************************************************************************sql语句操作
*-- 更新到后台
SQLSetProp(nHandle, "Transactions", 1)
nResult = SQLExec(nHandle, cSql, cTemp)
Use in Select(cTemp)
******************************************************************************
我现在想直接输出到标签，不用数据库这块了，用数据库好像会影响速度，没有标签来得快，数据库表多了会对配置低点的电脑会有影响
如图：
我框起来的是四个容器，容器里面是标签，我需要你把值写入到数组，然后我控制数组去输出，或许你本来就是输出到数组的，中间那段程序我没看懂
我想用简单的方式，复杂了我看不懂
例如：你把数据输出到数组，我用循环去打印到标签就可以了
a[55]
我可以
for i=1 to 55
赋值给变量
b(i)=a(i)
endfor
for i=1 to x
输出标签
endfor
或者你直接帮我写好也可以，我四个容器的名称是Container17，Container19，Container21，Container23
23是7个标签，其他都是12个标签，标签名称都是排好了的，1到12
感谢！要不收个徒吧，不然老是找你，我都不好意思了
，其他人也明白不了，现在就你一个人明白意思，我也只能找你
，vfp,弱爆了
程序代码：