VBNET中GridView的使用

VB.NET版的GridView经典使用ProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadIfNotIsPostBackThenbinddata()EndIfEndSubPublicSubbinddata()EndSub编辑中ProtectedSubGridView1_RowEditing(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewEditEventArgs)HandlesGridView1.RowEditingGridView1.EditIndex=e.NewEditIndex当前编辑行背景色高亮GridView1.EditRowStyle.BackColor=Color.FromName(#F7CE90)binddata()EndSub分页ProtectedSubGridView1_PageIndexChanging(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewPageEventArgs)HandlesGridView1.PageIndexChangingGridView1.PageIndex=e.NewPageIndexbinddata()重新绑定GridView数据的函数EndSub更新ProtectedSubGridView1_RowUpdating(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewUpdateEventArgs)HandlesGridView1.RowUpdatingDimclsBAsNewsqlDLTP.businessDimsqlstrAsStringDimdsAsNewDataSetsqlstr=selecthbdwnofrometsshbdwherehbdcnm=&CType(GridView1.Rows(e.RowIndex).FindControl(TextBox1),TextBox).Text.ToString().Trim()&ds=clsB.queryitems(sqlstr)DimwnoAsString=ds.Tables(0).Rows(0)(0).ToString().Trim()sqlstr=updateetsdlsetokscore1=&_CType(GridView1.Rows(e.RowIndex).FindControl(TextBox6),TextBox).Text.ToString().Trim()&,okscore2=&_CType(GridView1.Rows(e.RowIndex).FindControl(TextBox7),TextBox).Text.ToString().Trim()&,okscore=&_CType(GridView1.Rows(e.RowIndex).FindControl(TextBox8),TextBox).Text.ToString().Trim()&,okreport=&_CType(GridView1.Rows(e.RowIndex).FindControl(TextBox9),TextBox).Text.ToString().Trim()&,okgrad=&_CType(GridView1.Rows(e.RowIndex).FindControl(TextBox10),TextBox).Text.ToString().Trim()&,memo=&_CType(GridView1.Rows(e.RowIndex).FindControl(TextBox12),TextBox).Text.ToString().Trim()&wheretrano=&_GridView1.DataKeys(e.RowIndex).Value.ToString()&andwno=&wno&clsB.ExeSqlCmd(sqlstr)GridView1.EditIndex=-1binddata()EndSub取消ProtectedSubGridView1_RowCancelingEdit(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewCancelEditEventArgs)HandlesGridView1.RowCancelingEditGridView1.EditIndex=-1binddata()EndSub删除ProtectedSubGridView1_RowDeleting(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewDeleteEventArgs)HandlesGridView1.RowDeletingDimclsBAsNewsqlDLTP.businessDimsqlstrAsStringDimdsAsNewDataSetsqlstr=selecthbdwnofrometsshbdwherehbdcnm=&CType(GridView1.Rows(e.RowIndex).FindControl(Label1),Label).Text.ToString().Trim()&ds=clsB.queryitems(sqlstr)DimwnoAsString=ds.Tables(0).Rows(0)(0).ToString().Trim()sqlstr=deleteetsdlwheretrano=&GridView1.DataKeys(e.RowIndex).Value.ToString().Trim()&andwno=&wno&clsB.ExeSqlCmd(sqlstr)binddata()EndSub绑定行，特效及链接列属性分配等ProtectedSubGridView1_RowDataBound(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewRowEventArgs)HandlesGridView1.RowDataBoundIfe.Row.RowType=DataControlRowType.DataRowThen鼠标经过时，行背景色变e.Row.Attributes.Add(onmouseover,this.style.backgroundColor=#E6F5FA)鼠标移出时，行背景色变e.Row.Attributes.Add(onmouseout,this.style.backgroundColor=#FFFFFF)HyperLink列给链接值CType(e.Row.Cells(1).FindControl(HyperLink1),HyperLink).NavigateUrl=javascript:voidwindow.open(trashow.aspx?tno=+CType(e.Row.Cells(1).FindControl(HyperLink1),HyperLink).Text+,left=+(window.top.screen.width-454)/2+,top=+(window.top.screen.height-454)/2+,width=625,height=500,scrollbars=yes,resizeable=yes);当有编辑列时，避免出错，要加的RowState判断Ife.Row.RowState=DataControlRowState.NormalOre.Row.RowState=Dat