.net 不是vb6的升级，而是全新的基于运行时的语言架构，工作原理类似于Java。

.net目前有三种语言Visual Basic,Visual C#和Visual C++；曾经有过Visual J#后来被微软停止了。

.net的开发工具是Visual Studio .net，历史上曾经推出过2002，2003，2005，2008版本，分别用来开发.net 1.1 1.1 2.0 3.5的程序。即将推出的是Visual Studio 2010，用来开发.net 4.0的应用，目前已经有CTP可以下载体验。

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

binddata()

End If

End Sub

Public Sub binddata()

'

End Sub

'编辑中

Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing

GridView1.EditIndex = e.NewEditIndex

'当前编辑行背景色高亮

GridView1.EditRowStyle.BackColor = Color.FromName("#F7CE90")

binddata()

End Sub

'分页

Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging

GridView1.PageIndex = e.NewPageIndex

binddata() '重新绑定GridView数据的函数

End Sub

'更新

Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating

Dim clsB As New sqlDLTP.business

Dim sqlstr As String

Dim ds As New DataSet

sqlstr = "select hbdwno from etsshbd where hbdcnm='" &CType(GridView1.Rows(e.RowIndex).FindControl("TextBox1"), TextBox).Text.ToString().Trim() &"'"

ds = clsB.queryitems(sqlstr)

Dim wno As String = ds.Tables(0).Rows(0)(0).ToString().Trim()

sqlstr = "update etsdl set okscore1='" &_

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() &"' where trano='" &_

GridView1.DataKeys(e.RowIndex).Value.ToString() &"' and wno='" &wno &"'"

clsB.ExeSqlCmd(sqlstr)

GridView1.EditIndex = -1

binddata()

End Sub

'取消

Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit

GridView1.EditIndex = -1

binddata()

End Sub

'删除

Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting

Dim clsB As New sqlDLTP.business

Dim sqlstr As String

Dim ds As New DataSet

sqlstr = "select hbdwno from etsshbd where hbdcnm='" &CType(GridView1.Rows(e.RowIndex).FindControl("Label1"), Label).Text.ToString().Trim() &"'"

ds = clsB.queryitems(sqlstr)

Dim wno As String = ds.Tables(0).Rows(0)(0).ToString().Trim()

sqlstr = "delete etsdl where trano=" &GridView1.DataKeys(e.RowIndex).Value.ToString().Trim() &"and wno='" &wno &"'"

clsB.ExeSqlCmd(sqlstr)

binddata()

End Sub

'绑定行，特效及链接列属性分配等

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound

If e.Row.RowType = DataControlRowType.DataRow Then

'鼠标经过时，行背景色变

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:void window.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判断

If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then

If CType(e.Row.Cells(12).FindControl("Label11"), Label).Text = "1" Then

CType(e.Row.Cells(12).FindControl("Label11"), Label).Text = "在职"

End If

End If

End If

End Sub

前台：

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" Width=100% BackColor="White" BorderColor="White" BorderStyle="Ridge" BorderWidth="2px" CellPadding="3" CellSpacing="1" GridLines="None" AllowPaging="True" AllowSorting="True">

<!-- -->

</asp:GridView>

---