or
Dim dataAdapter as new SetTableAdapter.someidentityTableAdapter Dim adapterTable as DataTable adapterTable = dataAdapter.getData() Radcombo1.DataValueField = "Value1"Radcombo1.DataTextField = "Value2"Radcombo1.DataSource = adapterTable Radcombo1.DataBind()
<telerik:RadGrid ID="rgAccountRangeSet" runat="server" AutoGenerateColumns="False" GridLines="None" AllowAutomaticDeletes="True" AllowAutomaticInserts="True" AllowAutomaticUpdates="True" PageSize="25" AllowPaging="True" AllowSorting="True" > <PagerStyle Mode="NumericPages" /> <MasterTableView AutoGenerateColumns="False" CommandItemDisplay="Top" CommandItemSettings-ShowRefreshButton="False" HorizontalAlign="NotSet" DataKeyNames="Id"> <CommandItemSettings AddNewRecordText="Add New Account Range" AddNewRecordImageUrl="~/images/Keymaster/add.gif"/> <NoRecordsTemplate> <center><b>No records available</b></center> </NoRecordsTemplate> <Columns>
</Columns> <EditFormSettings> <EditColumn ButtonType="PushButton" /> </EditFormSettings> </MasterTableView> </telerik:RadGrid>
With the following code:
Private Sub rgAccountRangeSet_InsertCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles rgAccountRangeSet.InsertCommand 'code to handle insert items has been removed rgAccountRangeSet.Rebind() rgAccountRangeSet.MasterTableView.IsItemInserted = FalseEnd SubPublic Sub LlenaGrid() Strsql = "Select Empresa,Corr,NomPuesto,Salario from templeo where codusuario = " & Session("CodUsuario") & "" cn.Open() daData.SelectCommand = New OleDb.OleDbCommand(Strsql, cn) daData.Fill(dsGen, "DATA") GrdEmpleo.DataSource = dsGen GrdEmpleo.DataMember = "DATA" GrdEmpleo.DataBind() cn.Close() dsGen.Tables("DATA").Clear() End Sub<telerik:RadGrid runat="server" ID="GrdEmpleo" PageSize="5" AutoGenerateColumns="False" Width="100%" AllowSorting ="True" AllowPaging ="True" GridLines="None" TabIndex="17"> <PagerStyle Mode="NextPrevAndNumeric" NextPageText="Siguiente" PrevPageText="Anterior" PagerTextFormat="Change page: {4} Pagina <strong>{0}</strong> de <strong>{1}</strong>, registros <strong>{2}</strong> a <strong>{3}</strong> de <strong>{5}</strong>." PageSizeLabelText="Regitros"/> <MasterTableView DataKeyNames="Empresa,Corr,NomPuesto,Salario"> <Columns> <telerik:GridButtonColumn DataTextField="Empresa" UniqueName="Empresa" HeaderText="Empresa"></telerik:GridButtonColumn> <telerik:GridBoundColumn DataField="Corr" UniqueName="Corr" Visible="false" HeaderStyle-Width="75px"></telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Nompuesto" UniqueName="NomPuesto" HeaderText="Puesto" HeaderStyle-Width="75px"></telerik:GridBoundColumn> <telerik:GridBoundColumn DataField="Salario" HeaderText="Salario" HeaderStyle-Width="75px"> </telerik:GridBoundColumn> </Columns> </MasterTableView> <clientsettings> <selecting allowrowselect="True" /> </clientsettings> <FilterMenu EnableTheming="true"> <CollapseAnimation Duration="200" Type="InOutQuint" /> </FilterMenu> </telerik:RadGrid>Private Sub GrdEmpleo_PageIndexChanged(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridPageChangedEventArgs) Handles GrdEmpleo.PageIndexChanged Try LlenaGrid() Catch ex As Exception LblMensaje.Text = ex.Message End Try End Sub