VFP 愛用者社區

[xjliaos]

SELECT CONTRACT,MODEL_NO,ALLTRIM(BMPFILE5)+BMPFILE6,ORIGINAL,QUANTITY-QNT1,;
SIX_MERTIAL1,SIX_MERTIAL2;
FROM ST WHERE DATE01="6" AND QUANTITY-QNT1>0 INTO CURSOR TEMP1_1

WITH THISFORM.GRID1
.COLUMNCOUNT=7
.RECORDSOURCE="TEMP1_1"
.ENABLED=.T.
.READONLY=.F.

.DELETECOLUMN(6)
.ADDCOLUMN(6)
LN_CC1 = FCOUNT('TEMP1_1')
.COLUMNS[ln_cc1].REMOVEOBJECT('Text1')
.COLUMNS[ln_cc1].CONTROLSOURCE = 'TEMP1_1.SIX_MERTIAL1'
.COLUMNS[ln_cc1].ADDOBJECT('chk_1', 'checkbox')
.COLUMNS[ln_cc1].CHK_1.CAPTION = ''
.COLUMNS[ln_cc1].SPARSE = .F.
.COLUMNS[ln_cc1].READONLY=.F.
.COLUMNS[ln_cc1].CURRENTCONTROL="CHK_1"
.COLUMNS[ln_cc1].VISIBLE=.T.

.DELETECOLUMN(7)
.ADDCOLUMN(7)
LN_CC = FCOUNT('TEMP1_1')
.COLUMNS[ln_cc].REMOVEOBJECT('Text1')
.COLUMNS[ln_cc].CONTROLSOURCE = 'TEMP1_1.SIX_MERTIAL2'
.COLUMNS[ln_cc].ADDOBJECT('chk_2', 'checkbox')
.COLUMNS[ln_cc].CHK_2.CAPTION = ''
.COLUMNS[ln_cc].SPARSE = .F.
.COLUMNS[ln_cc].READONLY=.F.
.COLUMNS[ln_cc].CURRENTCONTROL="CHK_2"
.COLUMNS[ln_cc].VISIBLE=.T.
ENDWITH

問題:
無法更改CHECK的值,請高手們看看我那里寫錯了,小弟万分感激!!!

[syntech]

CONTROLSOURCE

[xjliaos]

CONTROLSOURCE 是不是不能為暫存檔??

[syntech]

看怎麼產生

[xjliaos]

SELECT CONTRACT,MODEL_NO,ALLTRIM(BMPFILE5)+BMPFILE6,ORIGINAL,QUANTITY-QNT1,;
SIX_MERTIAL1,SIX_MERTIAL2;
FROM ST WHERE DATE01="6" AND QUANTITY-QNT1>0 INTO CURSOR TEMP1_1
從這里產生的資料表(暫存檔),應該怎樣解決?請教

[LiuRambo]

SELECT出的CURSOR不能改變值

要改變的話
AFIELD(abc)
create cursor TmpCur from array abc
append from dbf("TEMP1_1 ")
再把GRID1的controlsource指定為TmpCur.Chk
大概是這樣

[syntech]

看哪一版 vfp,

"readwrite"

[xjliaos]

VFP6.0

[LiuRambo]

[xjliaos]