VFP 愛用者社區

[james169]

_SCREEN.....
_SCREEN.....
_SCREEN.....
.
.
.
SELECT 002
USE RBARTEMP EXCLUSIVE
PUBLIC SC_BARCODE
.
.
.
SC_BARCODE=CREATEOBJECT("BARCODE")
SC_BARCODE.SHOW()
READ EVENT

DEFINE CLASS BARCODE AS FORM
.
.
ADD OBJECT BAR_WIN AS GRID WITH ;
.
.
COLUMN1.ControlSource = "RBARTEMP.CHK", ;
.
.
PROCEDURE BAR_WIN.Init
.
.
WITH THIS
.SetAll("READONLY",.F.,"Column")
.
.
ENDWITH
WITH THIS.COLUMN1
.REMOVEOBJECT("TEXT1")
.ADDOBJECT("CHECK1","CHECK1")
.SPARSE=.F.
.CurrentControl="CHECK1"
ENDWITH

ENDWIDTH
.
.
ENDDEFINE
DEFINE CLASS CHECK1 AS CHECKBOX
CAPTION=""
NAME="CHECK1"
READONLY=.F.
ENABLED=.T.
ENDDEFINE

如上節錄的程式，請問為何在GRID內加入的CHECKBOX的值，可以正確顯示，卻無法修改，所有"READONLY"的屬性都已設定為".F."，而其他的欄位卻可以隨意修改。資料型態都沒問題，可以依數值，秀出打勾或空白，卻偏偏不能改。
請各位先進，不吝賜教，謝謝

[saint]

由於你是動態加入checkbox 所以，請把 checkbox 的 visible = .t. 就好了..