Privet.
Mne nado sozdat takoy zapros :

SELECT b, SUM(abuna1);
FROM bux;
GROUP BY b;
INTO CURSOR abu1

No, nado ispolzuvat vsex poley tablitsi bux.To yest summa vsex poley tablitsi.
Problema v tom chto takie poley u menya mnoqo (okolo 100) i oni (strukturi tablitsi) moqut menyatsa.
Vopros takoy: Ctobi oboyti eti problemi mojno li ne perecislit vse poley i kak to
's odnoy komondoy' nayti summu?

StasL, qruppirovka mne nado , imenno po pole "b".

Nedoxodyashiy, eto ya smoq delat:

clos data
use bux
gnFieldcount = AFIELDS(gaMyArray) && Create array
CLEAR
FOR nCount = 1 TO gnFieldcount
? gaMyArray(nCount,1) && Display field names
ENDFOR

No, kak dalshe nazvanie poley vstavlyat v zapros ne polucaetsa.

Posmotrite pojalusta, cto ya ne tak delayu , oshibka poluchaetsa.

clos data
use bux
gnFieldcount = AFIELDS(MASS)
?gnFieldcount
read
CLEAR
STR1="SELECT B, "
FOR nCount = 1 TO gnFieldcount
MASS1=MASS(nCount,1)
STR1=[&STR1,SUM(&MASS1)]
?STR1
ENDFOR

Takaya osibka polucaetsa v strku mejdu for i endfor:
'Subscript is outside defined range'

To je samaya oshibka.

Moy variant vot takoy:

clos data
clea
clea all
use bux in 0
select bux
gnFieldcount = AFIELDS(MASS)
STR1="B"
FOR nCount = 24 TO gnFieldcount && Mne nado nacinaya s 24-vo pole do kontse. && No pocemu to polucaets tolko qde to do 41.
MASS1=MASS(nCount,1)
STR1=[&STR1 ,sum(&MASS1)]
ENDFOR
str2=[select ]+str1+[ from bux group by b]
?str2


Yesli gnFieldcount >41 toqda takaya oshibka polucaetsa: 'Command contains unrecognized phrase/keyword'

U menya posledniy variant vot tak doljna bit:

clos data
clea
clea all

use abn_inf in 1
select abn_inf

use bux in 0
select bux

gnFieldcount = AFIELDS(MASS)
STR1="b,"
FOR nCount = 34 TO gnFieldcount
select abn_inf
loca for fc =ncount
if a_qiy=1
a_qiy1="q_opt"
endi

if a_qiy=3
a_qiy1="q_abun"
endi
if a_qiy=4
a_qiy1="q_mat_y"
endi
if a_qiy=5
a_qiy1="q_koshk"
endi
if a_qiy=6
a_qiy1="q_fil"
endi


select bux
MASS1=MASS(nCount,1)
sTR1=iif( ncount<>gnFieldcount, str1+[sum(&MASS1*&a_qiy1),],str1+[sum(&MASS1*&a_qiy1)])
ENDFOR
?str1
select &str1 ;
from bux group by b


Foxpro 9 vsyo normalno rabotaet, no mne nado foxpro 6, zdes fotal error dayut i pomoemu stroka sr1=iif(...) ocen dlinnaya .
Mojno kak nibut eto foxpro 6 realizovat?

Etot vopros ya reshil tolko v Foxpro 9. Pocemu to v foxpro 6 oshibka polucaetsa. Pomoemu ocen dlinnaya stroka poetomu.
Stasl, smisl funktsii iif():
V zavisimosti uslovii (ncount<>gnFieldcount)
str1=
[sum(&MASS1*&a_qiy1),]
ili
str1+[sum(&MASS1*&a_qiy1)])
Raznitsa: ","
Seycas ya xocu reshit vot takoy vopros:

SELECT abn_inf
INDEX ON FC TO P
BROWSE
mc=fc
USE BUX_mdx
P1=FIELD(mc)
USE BUX_kss
P2=FIELD(mc)
USE BUX_bnk
P3=FIELD(mc)
USE BUX_borc
P4=FIELD(mc)

Seycas mne nado v odnom brow pokazat vse 4 pole iz 4 raznix tablits
Cto-to takoe:
brow &1, &p2, &p3, &p4
Mojno li takoe delat?

Selectom ya eto delal . Tolko mne nado cto eti 4 tablitsi odnovremenno (v odnom brow) redaktirovat. No, select eto ne razreshaet.

Ya mnoqo iz nix cital, seycas yeshyo raz posmotrel, ne nashel to cto mne zdes nujno.
Yest 4 tablitsi. Nado ctobi odnovremenno ( v odnom brow) redaktirovat
vse 4 tablitsi "odinokovie" pole po nomeru pole (mc).

Nedoxodyashiy,

1) Vash variant u menya pocemu to s oshibkoy rabotaet:
'Subscript is outside defined range'
Mojet bit ya chto-to ne tak delayu, neznayu.

2) Vash 2-y sovet seycas poprobuyu, pomoemu doljno polucitsa.