Report Control - Unable to check RRI checkbox

Print Page | Close Window

Unable to check RRI checkbox

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Report Control
Forum Description: Topics Related to Codejock Report Control
URL: http://forum.codejock.com/forum_posts.asp?TID=3708
Printed Date: 17 May 2024 at 1:27pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Unable to check RRI checkbox

Posted By: Shawshank
Subject: Unable to check RRI checkbox
Date Posted: 27 February 2006 at 3:56pm

I need to have two columns editable, i.e. single click the ReportRecordItem (RRI) from the porper column and it becomes ediable. I have acomplished that by setting the ReportControl's AllowEdit property to True. I then set each column which I do not want editable to False, i.e. Column.Editable = False. The problem is that any ReportRecordItem whose column Editable property is False and which has a checkbox is unable to have that box checked. I can only do it programically, i.e. the user cannot click the checkbox and have it become checked.

Given the senario above it seems I must choose between haveing two editable columns or having a checkbox that works --but not both.

Can someone please shed some light on what I'm missing here?

Replies:

Posted By: sserge
Date Posted: 01 March 2006 at 3:43am

Hi,

It looks like this is almost the same question like your one: http://forum.codejock.com/forum_posts.asp?TID=3710 - http://forum.codejock.com/forum_posts.asp?TID=3710

With the code I suggested in that topic I can both disable editing name for Alias and Surname columns and checkbox could be clickable as well. Here is the code I'm using:


Private Sub Form_Load()
    Dim Record As ReportRecord
    Dim Item As ReportRecordItem
    Dim Column As ReportColumn
        
    Set Column = wndReportControl.Columns.Add(0, "Alias", 1, True)
    Column.EditOptions.AllowEdit = False
        
    Set Column = wndReportControl.Columns.Add(1, "Name", 1, True)
    'Column.EditOptions.AllowEdit = True
        
    Set Column = wndReportControl.Columns.Add(2, "Surname", 1, True)
    Column.EditOptions.AllowEdit = False
    
    Set Record = wndReportControl.Records.Add()
        
    Set Item = Record.AddItem("Fred Garvin")
    Item.HasCheckbox = True
        
    Set Item = Record.AddItem("Fred")
    
        Item.CreateEditOptions
        Item.EditOptions.AllowEdit = True
        Item.EditOptions.SelectTextOnEdit = True
    
    Set Item = Record.AddItem("Garvin")
    Item.HasCheckbox = True
    
    wndReportControl.AllowEdit = True
    wndReportControl.Populate
End Sub

--
WBR,
Serge