Hi All,
I've dynmaically created a textbox, but I can't edit it. When I click on
it, the cursor flashes for a second, but then goes away and I can't enter any
text or do anything with the value in the box.
Here's the code I've used to create the control. It's within a datagrid
that is bound to a dataTable so the action happens in the ItemDataBound event.
Private Sub dgItems_ItemDat aBound(ByVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Data GridItemEventAr gs) Handles dgItems.ItemDat aBound
If e.Item.ItemType = ListItemType.It em Or e.Item.ItemType =
ListItemType.Al ternatingItem Then
Dim dtItems As New DataTable
dtItems = CType(Session(" ItemsDT"), DataTable)
'this is what I can't edit
Dim txtQty As New TextBox
Page.Controls.A dd(txtQty)
e.Item.Cells(0) .Controls.Add(t xtQty)
txtQty.ID = "txtQty" & e.Item.ItemInde x
txtQty.EnableVi ewState = True
txtQty.Text = dtItems.Rows(e. Item.DataSetInd ex)(0)
txtQty.Width = WebControls.Uni t.Pixel(30)
Dim lblDesc As New Label
lblDesc.EnableV iewState = True
lblDesc.Text = dtItems.Rows(e. Item.DataSetInd ex)(1)
e.Item.Cells(1) .Controls.Add(l blDesc)
Dim lblUnitPrice As New Label
lblUnitPrice.En ableViewState = True
lblUnitPrice.Te xt = dtItems.Rows(e. Item.DataSetInd ex)(2)
e.Item.Cells(2) .Controls.Add(l blUnitPrice)
End If
End Sub
Thanks.
I've dynmaically created a textbox, but I can't edit it. When I click on
it, the cursor flashes for a second, but then goes away and I can't enter any
text or do anything with the value in the box.
Here's the code I've used to create the control. It's within a datagrid
that is bound to a dataTable so the action happens in the ItemDataBound event.
Private Sub dgItems_ItemDat aBound(ByVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Data GridItemEventAr gs) Handles dgItems.ItemDat aBound
If e.Item.ItemType = ListItemType.It em Or e.Item.ItemType =
ListItemType.Al ternatingItem Then
Dim dtItems As New DataTable
dtItems = CType(Session(" ItemsDT"), DataTable)
'this is what I can't edit
Dim txtQty As New TextBox
Page.Controls.A dd(txtQty)
e.Item.Cells(0) .Controls.Add(t xtQty)
txtQty.ID = "txtQty" & e.Item.ItemInde x
txtQty.EnableVi ewState = True
txtQty.Text = dtItems.Rows(e. Item.DataSetInd ex)(0)
txtQty.Width = WebControls.Uni t.Pixel(30)
Dim lblDesc As New Label
lblDesc.EnableV iewState = True
lblDesc.Text = dtItems.Rows(e. Item.DataSetInd ex)(1)
e.Item.Cells(1) .Controls.Add(l blDesc)
Dim lblUnitPrice As New Label
lblUnitPrice.En ableViewState = True
lblUnitPrice.Te xt = dtItems.Rows(e. Item.DataSetInd ex)(2)
e.Item.Cells(2) .Controls.Add(l blUnitPrice)
End If
End Sub
Thanks.
Comment