Private Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated        
        Dim lit_footer As ListItemType = e.Item.ItemType        If lit_footer = ListItemType.EditItem Then            '设置编辑的textbox            Dim txtuserid As TextBox            '-------------------------------------------------------------
            txtuserid = e.Item.Cells(0).Controls(0)
            txtuserid.Width = Unit.Pixel(80)
            txtuserid.TextMode = TextBoxMode.SingleLine            '=============================================================
        End If              
    End Sub