Bueno despues de dos dias a venido mi jefe y lo ha solucionado. Gracias de todos modos
Código:
Public Partial Class WebForm1
Inherits System.Web.UI.Page
Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim UpdatePanel1 As UpdatePanel = New UpdatePanel()
UpdatePanel1.ID = "UpdatePanel1"
Dim CheckBox1 As CheckBox = New CheckBox()
CheckBox1.ID = "field_CheckBox_" '& field.id
CheckBox1.AutoPostBack = True
AddHandler CheckBox1.CheckedChanged, AddressOf WebForm1.CheckBox1_CheckedChanged
Dim FileUpload1 As FileUpload = New FileUpload()
FileUpload1.ID = "field_FileUpload_" '& field.id
Dim HyperLink1 As HyperLink = New HyperLink()
HyperLink1.ID = "field_HyperLink_" '& field.id
HyperLink1.Text = "Descargar"
HyperLink1.NavigateUrl = "../viewdoc.aspx?dID=" '& item("ID")
HyperLink1.Target = "_ablank"
If False Then 'id_value.Value <> "" And id_value.Value <> "[UNDEFINED]" Then
'tiene algo
CheckBox1.Enabled = False
FileUpload1.Visible = False
CheckBox1.Checked = True
HyperLink1.NavigateUrl = "~/viewdoc.aspx?dID=" ' & id_value.Value
Else
'no tiene nada
FileUpload1.Enabled = False
HyperLink1.Visible = False
End If
Dim AsyncPostBackTrigger1 As AsyncPostBackTrigger = New AsyncPostBackTrigger()
AsyncPostBackTrigger1.ControlID = "field_CheckBox_" '& field.id"
AsyncPostBackTrigger1.EventName = "CheckedChanged"
UpdatePanel1.ContentTemplateContainer.Controls.Add(CheckBox1)
UpdatePanel1.ContentTemplateContainer.Controls.Add(FileUpload1)
UpdatePanel1.ContentTemplateContainer.Controls.Add(HyperLink1)
UpdatePanel1.Triggers.Add(AsyncPostBackTrigger1)
Page.Form.Controls.Add(UpdatePanel1)
End Sub
Protected Shared Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim chk As CheckBox = sender
Dim fu As FileUpload = chk.Parent.FindControl("field_FileUpload_")
If chk.Checked = True Then
fu.Enabled = True
Else
fu.Enabled = False
End If
End Sub
End Class