Some columns in a grid is read-only even when set to false and enable is true 1

[gryff15]

I have two cursors, a parent and child.
Parent has textboxes while child has grid.
The problem is some columns in the grid of the child are read-only and I can't make it editable except for a numeric field and datefield.

Thisform.container1.grid1.ReadOnly = .F.
Thisform.container1.grid1.Column10.Sparse = .F.
Thisform.container1.grid1.Column10.Enabled = .T.
For lnCountCol = 1 To lnTotalCol
	lnColNo = "column"+Alltrim(Str(lnCountCol))
	Thisform.container1.grid1.&lnColNo..ReadOnly = .F.
	Thisform.container1.grid1.&lnColNo..Enabled = .T.
Endfor

I have no problem with the parent textboxes because they are editable using SetAll.
For the child, I tried grid setall textboxes readonly .F. and enable = .T., still not working.
Please see attached image.

- gryff15 -

 

[bborissov]

The whole GRID is readonly. That is why columns are too, no matter what you do.
BTW you can access columns through Coluimns property of the Grid

For lnCountCol = 1 To lnTotalCol
    Thisform.container1.grid1.Columns(lnCountCol).ReadOnly = .F.
    Thisform.container1.grid1.Columns(lnCountCol).Enabled = .T.
Endfor

Borislav Borissov
VFP9 SP2, SQL Server

 

[gryff15]

The grid readonly is set to False by default. I also hardcoded in Init to set it false but it doesn't work.
Thank you for the tip on Columns property though.

- gryff15 -

 

[Chris Miller]

How do you define the cursors? They might be read only.

Are you aware of READWRITE, NOFILTER, or what FILTER CURSORs are and the implications they all have and your possibilities for updatable views or CAs?

Chriss

 

[mJindrova]

Hmm,

if ControlSource is expression, then column is read only always.

 

[gryff15]

Hi Chris,
I created cursor:

Create Cursor parent (;
	CODE C(10) Not Null,;
	NAME C(50),;
	BIRTHDATE D Not Null,;
	AGE N(3) Not Null))
Create Cursor child (;
	CODE C(10) Not Null,;
	NAME C(50),;
	BIRTHDATE D Not Null,;
	AGE N(3) Not Null))

Then SQLConnect to tmpcursors
scatter memvar, insert into parent&child from memvar
I'm not aware of nofilter & filter cursors.

Hi mJin,

My Grid init has control source.
e.g. This.&lnColNo..ControlSource = "Alltrim(name)"


- gryff15 -

 

[Chris Miller]

.ControlSource = "Alltrim(name)"

Well, there is your problem, an expression is one way - readonly, as mJindrova already pointed out. Use name here, and it becomes editable. You can use column.Format="T" to trim away spaces instead.

Chriss

 

[gryff15]

Thank you. The removal of alltrim made it editable. One more thing, I can't find a way to insert a new record in the grid.
I have an Add button:
Go bottom
Apppend blank
....grid.column.text1.setfocus()
, does not go to new line. Only focuses to first record.

- gryff15 -

 

[Chris Miller]

Well, after APEND BLANK you are on the new record. All you'd need to do is Thisform.Grid1.Setfocus().

Chriss