Dataform edititemtemplate with checkboxlist

[Robin]

I would like to have a Checkboxlist inside the editItemTemplate of a dataform.   I want the checkboxlist to be populated from the sql database programmatically.

I am using VB. 

Here is my aspx code

<%@ Page Title="" Language="VB" MasterPageFile="~/Header.master" AutoEventWireup="false" CodeFile="EditProposal.aspx.vb" Inherits="StepI_EditProposal" %>

<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
</asp:Content>

<asp:Content ID="Content2" ContentPlaceHolderID="Main" Runat="Server">
     
     <telerik:RadScriptManager runat="server" ID="rsm"></telerik:RadScriptManager>
   
  
    <telerik:RadDataForm ID="RadDataForm1" runat="server" CssClass="rdfLeftAligned rdfNoFieldHint"  OnItemEditing="loadcounty" DataKeyNames="authrepid,applicationid" DataSourceID="SqlDataSource1" >
        <LayoutTemplate>
            <div class="RadDataForm RadDataForm_<%# Container.Skin %> rdfLeftAligned rdfNoFieldHint">
                <div id="itemPlaceholder" runat="server">
                </div>
          
                   
                </div>
          
        </LayoutTemplate>
        <ItemTemplate>

                <div class="rdfRow">
                    <asp:Label ID="fiscalorgnameLabel2" runat="server" CssClass="rdfLabel" Text="Fiscal Organization:"></asp:Label>
                    <asp:Label ID="fiscalorgnameLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("fiscalorgname") %>' />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="behalfofLabel2" runat="server" CssClass="rdfLabel" Text="On Behalf of:"></asp:Label>
                    <asp:Label ID="behalfofLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("behalfof") %>' />
                </div>
         
                <div class="rdfRow">
                    <asp:Label ID="authrepLabel2" runat="server" CssClass="rdfLabel" Text="Authorized Representative:"></asp:Label>
                    <asp:Label ID="authrepLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("authrep") %>' />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="addressLabel2" runat="server" CssClass="rdfLabel" Text="Address"></asp:Label>
                    <asp:Label ID="addressLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("address") %>' />
              
                    <asp:Label ID="cityLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("city") %>' />
               
                    <asp:Label ID="stateLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("state") %>' />
             
                    <asp:Label ID="ZipCodeLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("ZipCode") %>' />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="telephoneLabel2" runat="server" CssClass="rdfLabel" Text="Telephone:"></asp:Label>
                    <asp:Label ID="telephoneLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("telephone") %>' />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="emailLabel2" runat="server" CssClass="rdfLabel" Text="Email:"></asp:Label>
                    <asp:Label ID="emailLabel1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("email") %>' />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="ciFirstname" runat="server" Text="First Name:"></asp:Label>
                    <asp:Label ID="ciFirstName1" runat="server" text='<%# Eval("firstname1") %>'></asp:Label>
                </div>
                 <div class="rdfRow">
                    <asp:Label ID="ciAddress" runat="server" Text="Address:"></asp:Label>
                    <asp:Label ID="Label2" runat="server" text='<%# Eval("address1") %>'></asp:Label>
                       <asp:Label ID="Label1" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("city1") %>' />
               
                    <asp:Label ID="Label3" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("state1") %>' />
             
                    <asp:Label ID="Label4" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("ZipCode1") %>' />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="Label5" runat="server" CssClass="rdfLabel" Text="Telephone:"></asp:Label>
                    <asp:Label ID="Label6" runat="server" CssClass="rdfFieldValue" Text='<%# Eval("telephone1") %>' />
                </div>
                <div class="rdfRow">
                   
                 <asp:Label ID="lblRegion" runat="server" Text="Region:" CssClass="rdflabel"></asp:Label>
                      <asp:Label ID="txtRegion" runat="server" Text='<%# Eval("region") %>' CssClass="rdfFieldValue"></asp:Label>
                </div>
                 <div class="rdfRow">
                   
                 <asp:Label ID="lblCounty" runat="server" Text="County/Counties:" CssClass="rdflabel"></asp:Label>
                      <asp:datalist ID="dlCounty" runat="server" datasourceid="sqlCounty"  CssClass="rdfFieldValue">
                          <ItemTemplate>
                              <asp:label id="county" runat="server" text='<%# Eval("county") %>'></asp:label>
                          </ItemTemplate>
                      </asp:datalist>
                </div>
            <div class="rdfRow">
                <asp:Label ID="lblProposalSummary" runat="server" Text="Proposal Summary" CssClass="rdfLabel"></asp:Label>
                <asp:label ID="txtPropSummary" runat="server"   Text='<%# Eval("proposalsummary") %>'  BorderStyle="Solid" BorderWidth="1px" Width="80%"></asp:label>
            </div>
             <div class="rdfRow">
                <asp:Label ID="lblMatchFunds" runat="server" Text="Matching Funds Overview" CssClass="rdfLabel"></asp:Label>
                <asp:label ID="txtMatchFunds" runat="server"  Text='<%# Eval("matchingFundssummary") %>'  BorderStyle="Solid" BorderWidth="1px" Width="80%"></asp:label>
            </div>
                <div class="rdfCommandButtons">
                    <hr class="rdfHr" />
                 
                    <telerik:RadButton ID="EditButton" runat="server" ButtonType="SkinnedButton" CausesValidation="False" CommandName="Edit" RenderMode="Lightweight" Text="Edit" ToolTip="Edit" />
            </div>
        </ItemTemplate>
        <EditItemTemplate>
           
                <div class="rdfRow">
                    <asp:Label ID="fiscalorgnameLabel2" runat="server" AssociatedControlID="fiscalorgnameTextBox" CssClass="rdfLabel" Text="Fiscal Organization:"></asp:Label>
                    <telerik:RadTextBox ID="fiscalorgnameTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("fiscalorgname") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="behalfofLabel2" runat="server" AssociatedControlID="behalfofTextBox" CssClass="rdfLabel" Text="On Behalf of:"></asp:Label>
                    <telerik:RadTextBox ID="behalfofTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("behalfof") %>' WrapperCssClass="rdfInput" />
                </div>
            <div>
                Authorized Representative:
            </div>
                <div class="rdfRow">

                    <asp:Label ID="firstnameLabel2" runat="server" AssociatedControlID="firstnameTextBox" CssClass="rdfLabel" Text="First Name"></asp:Label>
                    <telerik:RadTextBox ID="firstnameTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("firstname") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="lastnameLabel2" runat="server" AssociatedControlID="lastnameTextBox" CssClass="rdfLabel" Text="Last Name"></asp:Label>
                    <telerik:RadTextBox ID="lastnameTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("lastname") %>' WrapperCssClass="rdfInput" />
                </div>
                
                   
                <div class="rdfRow">
                    <asp:Label ID="addressLabel2" runat="server" AssociatedControlID="addressTextBox" CssClass="rdfLabel" Text="Address:"></asp:Label>
                    <telerik:RadTextBox ID="addressTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("address") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="cityLabel2" runat="server" AssociatedControlID="cityTextBox" CssClass="rdfLabel" Text="City:"></asp:Label>
                    <telerik:RadTextBox ID="cityTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("city") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="stateLabel2" runat="server" AssociatedControlID="stateTextBox" CssClass="rdfLabel" Text="State:"></asp:Label>
                    <telerik:RadTextBox ID="stateTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("state") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="ZipCodeLabel2" runat="server" AssociatedControlID="ZipCodeTextBox" CssClass="rdfLabel" Text="Zip Code"></asp:Label>
                    <telerik:RadTextBox ID="ZipCodeTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("ZipCode") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="telephoneLabel2" runat="server" AssociatedControlID="telephoneTextBox" CssClass="rdfLabel" Text="Telephone"></asp:Label>
                    <telerik:RadTextBox ID="telephoneTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("telephone") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="emailLabel2" runat="server" AssociatedControlID="emailTextBox" CssClass="rdfLabel" Text="Email Address"></asp:Label>
                    <telerik:RadTextBox ID="emailTextBox" runat="server" RenderMode="Lightweight" Text='<%# Bind("email") %>' WrapperCssClass="rdfInput" />
                </div>
                <div>Application Contact</div>
            <div>
                <asp:Label runat="server" ID="lblAppFirstName" Text="First Name" AssociatedControlID="contactFirstName"></asp:Label>
                <telerik:RadTextBox runat="server" ID="contactFirstName" Text='<%# Bind("firstname1") %>' WrapperCssClass="rdfInput"></telerik:RadTextBox>
            </div>
                      <div class="rdfRow">
                    <asp:Label ID="Label7" runat="server" AssociatedControlID="lastnameTextBox" CssClass="rdfLabel" Text="Last Name"></asp:Label>
                    <telerik:RadTextBox ID="RadTextBox1" runat="server" RenderMode="Lightweight" Text='<%# Bind("lastname1") %>' WrapperCssClass="rdfInput" />
                </div>
                
                   
                <div class="rdfRow">
                    <asp:Label ID="Label8" runat="server" AssociatedControlID="addressTextBox" CssClass="rdfLabel" Text="Address:"></asp:Label>
                    <telerik:RadTextBox ID="address1" runat="server" RenderMode="Lightweight" Text='<%# Bind("address1") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="Label9" runat="server" AssociatedControlID="cityTextBox" CssClass="rdfLabel" Text="City:"></asp:Label>
                    <telerik:RadTextBox ID="RadTextBox3" runat="server" RenderMode="Lightweight" Text='<%# Bind("city1") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="Label10" runat="server" AssociatedControlID="stateTextBox" CssClass="rdfLabel" Text="State:"></asp:Label>
                    <telerik:RadTextBox ID="RadTextBox4" runat="server" RenderMode="Lightweight" Text='<%# Bind("state1") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="Label11" runat="server" AssociatedControlID="ZipCodeTextBox" CssClass="rdfLabel" Text="Zip Code"></asp:Label>
                    <telerik:RadTextBox ID="RadTextBox5" runat="server" RenderMode="Lightweight" Text='<%# Bind("ZipCode1") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="Label12" runat="server" AssociatedControlID="telephoneTextBox" CssClass="rdfLabel" Text="Telephone"></asp:Label>
                    <telerik:RadTextBox ID="RadTextBox6" runat="server" RenderMode="Lightweight" Text='<%# Bind("telephone") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="Label13" runat="server" AssociatedControlID="emailTextBox" CssClass="rdfLabel" Text="Email Address"></asp:Label>
                    <telerik:RadTextBox ID="RadTextBox7" runat="server" RenderMode="Lightweight" Text='<%# Bind("email1") %>' WrapperCssClass="rdfInput" />
                </div>
                <div class="rdfRow">
                    <asp:Label ID="County" runat="server" Text="County:"></asp:Label>
                  
                    <telerik:RadCheckBoxList runat="server" ID="ckCounty" ></telerik:RadCheckBoxList>
                      
                    <asp:SqlDataSource runat="server" ID="sqlSelectCounty" ConnectionString='<%$ ConnectionStrings:COSI_GRANTS_TEST %>' SelectCommand="SELECT [County], [CountyID] FROM [County]"></asp:SqlDataSource>
                </div>
              
             
                <div class="rdfRow">
                    <asp:Label ID="PropLabel" runat="server" Text="Propsal Summary" ></asp:Label>
                    </div>
            <div class="rdfRow">
                <asp:TextBox ID="txtProposal" runat="server" Text='<%# Bind("proposalsummary") %>'></asp:TextBox>
                </div>
              <div class="rdfRow">
                    <asp:Label ID="Label14" runat="server" Text="Matching Funds Overview"></asp:Label>
                    </div>
              <div class="rdfRow">
                <asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("matchingfundssummary") %>'></asp:TextBox>
                </div>
               <div class="rdfCommandButtons">
                    <hr class="rdfHr" />
                    <telerik:RadButton ID="UpdateButton" runat="server" ButtonType="SkinnedButton" CommandName="Update" RenderMode="Lightweight" Text="Update" ToolTip="Update" />
                    <telerik:RadButton ID="CancelButton" runat="server" ButtonType="SkinnedButton" CausesValidation="False" CommandName="Cancel" RenderMode="Lightweight" Text="Cancel" ToolTip="Cancel" />
                </div>
        </EditItemTemplate>
     
        <EmptyDataTemplate>
            <div class="RadDataForm RadDataForm_<%# Container.Skin %>">
                <div class="rdfEmpty">
                    There are no items to be displayed.</div>
            </div>
        </EmptyDataTemplate>
    </telerik:RadDataForm>
    <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:COSI_GRANTS_TEST %>" SelectCommand="getApplicationsByAppId" SelectCommandType="StoredProcedure" UpdateCommand="update application set fiscalorgname = @fiscalorgname where applicationid=@appid; update [Authorized_Rep] set firstname=@firstname, lastname=@lastname, address=@address, city=@city, state=@state, zipcode=@zipcode, telephone=@telephone, email=@email where authrepid=@authrepid">
        <SelectParameters>
            <asp:QueryStringParameter Name="appid" QueryStringField="appid" Type="Int32" />
        </SelectParameters>
        <UpdateParameters>
            <asp:Parameter Name="fiscalorgname" DefaultValue="fiscalOrgname"></asp:Parameter>
            <asp:QueryStringParameter Name="appid" querystringfield="appid" ></asp:QueryStringParameter>
            <asp:Parameter Name="firstname" />
            <asp:parameter name="lastname"/>
            <asp:Parameter Name="city" />
            <asp:Parameter Name="state" />
            <asp:Parameter Name="zipcode" />
            <asp:Parameter Name="telephone" />
            <asp:Parameter Name="email" />
            <asp:Parameter Name="city1" />
            <asp:parameter name="authrepid"></asp:parameter>
          
        </UpdateParameters>
    </asp:SqlDataSource>
    <asp:SqlDataSource ID="sqlCounty" runat="server" ConnectionString='<%$ ConnectionStrings:COSI_GRANTS_TEST %>' SelectCommand="SELECT ac.ApplicationId, ac.CountyId, c.County FROM Application_County AS ac INNER JOIN County AS c ON c.CountyID = ac.CountyId WHERE (ac.ApplicationId = @appid)">
        <SelectParameters>
            <asp:QueryStringParameter QueryStringField="appid" Name="appid"></asp:QueryStringParameter>


        </SelectParameters>
    </asp:SqlDataSource>
</asp:Content>
 


<asp:Content ID="Content3" ContentPlaceHolderID="Footer" Runat="Server">
    </asp:Content>
------------------------------

ANd here is my vb code

 

Imports System.Data
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports System.Data.DataTable
Imports System.Data.DataRelation
Imports System.IO
Imports System.IO.Stream
Imports System.IO.MemoryStream

Imports System.Configuration.ConfigurationManager

Imports Telerik.Web.UI
Imports System.Web.UI.WebControls.CheckBoxList
Imports Telerik.Web.Data
Partial Class StepI_EditProposal
    Inherits System.Web.UI.Page
    Dim conn As New SqlConnection(ConnectionStrings("COSIGrantsDB").ConnectionString)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Not IsPostBack Then
            LoadCounty()
        End If
    End Sub

    Protected Sub LoadCounty()
        conn.Open()
        Dim ck As New RadCheckBoxList()
        Me.Controls.Add(ck)



        Dim dt As DataTable = New DataTable()
        Dim ad As SqlDataAdapter = New SqlDataAdapter("Select countyid, county from county order by county", conn)
        ad.Fill(dt)

        Dim ck As New CheckBoxList()
        ck = TryCast(RadDataForm1.FindControl("ckCounty"), CheckBoxList)
        ck.DataSource = dt
        ck.DataTextField = "county"
        ck.DataValueField = "countyid"
        ck.DataBind()
        Dim cmd As New SqlCommand("Select * from application _county where applicationid = " & Request.QueryString("appid"), conn)
        Dim rdr = cmd.ExecuteReader()
        Dim ckvalue As String
        While rdr.Read()
            For i = 0 To ck.Items.Count - 1
                ckvalue = ck.Items(i).Value
                If ckvalue = rdr.GetValue(0) Then
                    ck.Items(i).Selected = True
                End If
            Next

        End While
        rdr.Close()

        dt.Clear()
        conn.Close()
    End Sub
    Protected Sub raddataform1_itemdatabound(ByVal sender As Object, ByVal e As RadDataFormItemEventArgs) Handles RadDataForm1.ItemDataBound
        Dim editableItem As RadDataFormEditableItem = TryCast(e.Item, RadDataFormEditableItem)
        LoadCounty()
    End Sub

    Protected Sub ckCounty_DataBinding1(sender As Object, e As EventArgs)

    End Sub
End Class

 

Thank you

[Vessy]

Hi Robin,

I am not quite sure I understand the exact problem you are facing properly. Can you elaborate a bit on what are the difficulties you are facing while implementing the described scenario so we can help you with them?

Regards,
Vessy
Progress Telerik

[Robin]

Sorry about that, I thought I put in the problem.

When I try to use findcontrol to set the checkboxlist  in the codebehind, I can't locate the checkboxlist. I get an error 'object not an instance of an object' pointing to the   ck.DataSource = dt line.  When I debug  'ck' is null.  Never being set to the checkboxlist.

This section of code is the error

   Dim ck As New CheckBoxList()
        ck = TryCast(RadDataForm1.FindControl("ckCounty"), CheckBoxList)
        ck.DataSource = dt
        ck.DataTextField = "county"
        ck.DataValueField = "countyid"
        ck.DataBind()

Hopefully that is clearer to you

[Vessy]

Hi Robin,

Thank you for the clarification. You can see how to access the controls in a DataForm Edit template in the the following code-library:
http://www.telerik.com/support/code-library/accessing-controls-in-dataform

Please, give it a try and let me know should I can assist you further on this matter.

Regards,
Vessy
Progress Telerik

[Robin]

Thanks Vessy,  I tried the itemcreated event and the itemdatabound but it doesnt display anything

  Protected Sub LoadCounty_itemcreated(sender As Object, e As RadDataFormItemEventArgs)
        conn.Open()

        If e.Item.IsInEditMode Then



            Dim dt As DataTable = New DataTable()
            Dim ad As SqlDataAdapter = New SqlDataAdapter("Select countyid, county from county order by county", conn)
            ad.Fill(dt)

            Dim ck As New CheckBoxList()
            Dim r As RadDataFormEditableItem = TryCast(e.Item, RadDataFormEditableItem)
            ck = r.FindControl("countyList")
            ck.DataSource = dt
            ck.DataTextField = "county"
            ck.DataValueField = "countyid"
            ck.DataBind()
            Dim cmd As New SqlCommand("Select * from application _county where applicationid = " & Request.QueryString("appid"), conn)
            Dim rdr = cmd.ExecuteReader()
            Dim ckvalue As String
            While rdr.Read()
                For i = 0 To ck.Items.Count - 1
                    ckvalue = ck.Items(i).Value
                    If ckvalue = rdr.GetValue(0) Then
                        ck.Items(i).Selected = True
                    End If
                Next

            End While
            rdr.Close()

            dt.Clear()
        End If
        conn.Close()
    End Sub

 

my aspx is

  <asp:checkboxlist runat="server" ID="countyList" >

                     </asp:checkboxlist>

 

can you see if I am doing something wrong? or should i use another event?

 

Thank you

[Vessy]

Hi Robin,

The value of e.Item.IsInEditMode will return true in the initial creation of the items, when the CheckboxList control is still not available. You should consider a more complex if statement, similar to the one in the linked CL project:

Protected Sub RadDataForm1_ItemCreated(sender As Object, e As RadDataFormItemEventArgs)
    If TypeOf e.Item Is RadDataFormDataItem AndAlso Not (e.Item.IsInEditMode) Then
        ' item template control
        Dim item As RadDataFormDataItem = TryCast(e.Item, RadDataFormDataItem)
        Dim label As Label = TryCast(item.FindControl("CompanyNameLabel1"), Label)
        label.BackColor = System.Drawing.Color.LightBlue
    ElseIf TypeOf e.Item Is IRadDataFormInsertItem Then
        ' insert template control
        Dim item As RadDataFormEditableItem = TryCast(e.Item, RadDataFormEditableItem)
        Dim textBox As TextBox = TryCast(item.FindControl("CompanyNameTextBox"), TextBox)
        textBox.Text = "Insert Accessed"
    End If
End Sub

If the problem occurs even after this change, please, send us a runnbale simplified version of your project along with a dummy data best we can test with, and we will examine the root of the problem further at our end.

Regards,
Vessy
Progress Telerik