hi
im using tabstrip control
and i want to find all controls that my radpageview control use
want to use a same code like this on fiding the control
i hope u will help me
thanks a lot
regards
webster
im using tabstrip control
and i want to find all controls that my radpageview control use
want to use a same code like this on fiding the control
Public Sub ImpostaCampiDataBase(ByVal Pagina As Page, ByVal IDWS As String, ByVal NotaMod As String) |
' imposta campi data base dalla pagina web |
TestoMessaggio = "" |
Dim c As Control |
Dim childc As Control |
Dim intc As Integer |
Try |
For Each c In Pagina.Controls |
For Each childc In c.Controls |
If TypeOf childc Is TextBox Then |
If Left(CType(childc, TextBox).ID, 3) = "txt" Then |
ReDim Preserve param(intc) |
ReDim Preserve paramVal(intc) |
param(intc) = Mid(childc.ID, 4) |
paramVal(intc) = CType(childc, TextBox).Text |
intcintc = intc + 1 |
End If |
ElseIf TypeOf childc Is Telerik.Web.UI.RadTextBox Then |
If Left(CType(childc, Telerik.Web.UI.RadTextBox).ID, 3) = "txt" Then |
ReDim Preserve param(intc) |
ReDim Preserve paramVal(intc) |
param(intc) = Mid(childc.ID, 4) |
paramVal(intc) = CType(childc, Telerik.Web.UI.RadTextBox).Text |
intcintc = intc + 1 |
End If |
ElseIf TypeOf childc Is Telerik.Web.UI.RadDatePicker Then |
If Left(CType(childc, Telerik.Web.UI.RadDatePicker).ID, 3) = "rdp" Then |
ReDim Preserve param(intc) |
ReDim Preserve paramVal(intc) |
param(intc) = Mid(childc.ID, 4) |
If CType(childc, Telerik.Web.UI.RadDatePicker).IsEmpty = True Then |
paramVal(intc) = "" |
Else |
paramVal(intc) = CType(childc, Telerik.Web.UI.RadDatePicker).SelectedDate |
End If |
intcintc = intc + 1 |
End If |
ElseIf TypeOf childc Is Telerik.Web.UI.RadComboBox Then |
If Left(CType(childc, Telerik.Web.UI.RadComboBox).ID, 3) = "lst" Then |
ReDim Preserve param(intc) |
ReDim Preserve paramVal(intc) |
param(intc) = Mid(childc.ID, 4) |
paramVal(intc) = CType(childc, Telerik.Web.UI.RadComboBox).SelectedValue |
intcintc = intc + 1 |
End If |
End If |
Next |
Next |
ReDim Preserve param(intc) |
ReDim Preserve paramVal(intc) |
param(intc) = "IDWS" |
paramVal(intc) = IDWS |
intcintc = intc + 1 |
ReDim Preserve param(intc) |
ReDim Preserve paramVal(intc) |
param(intc) = "NOTAMOD" |
paramVal(intc) = NotaMod |
Catch _err As Exception |
TestoMessaggio = "Errore Imposta Campi DataBase - " + _err.Source + "->" + _err.Message |
End Try |
End Sub |
i hope u will help me
thanks a lot
regards
webster