VB对GridView的一些操作
View Code
1 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
2
3 If Not IsPostBack Then
4
5 binddata()
6
7 End If
8
9
10
11 End Sub
12
13
14
15 Public Sub binddata()
16
17 '
18
19 End Sub
20
21
22
23 '编辑中
24
25 Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
26
27 GridView1.EditIndex = e.NewEditIndex
28
29 '当前编辑行背景色高亮
30
31 GridView1.EditRowStyle.BackColor = Color.FromName("#F7CE90")
32
33 binddata()
34
35
36
37 End Sub
38
39
40
41 '分页
42
43 Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
44
45 GridView1.PageIndex = e.NewPageIndex
46
47 binddata() '重新绑定GridView数据的函数
48
49 End Sub
50
51
52
53 '更新
54
55 Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
56
57 Dim clsB As New sqlDLTP.business
58
59 Dim sqlstr As String
60
61 Dim ds As New DataSet
62
63 sqlstr = "select hbdwno from etsshbd where hbdcnm='" & CType(GridView1.Rows(e.RowIndex).FindControl("TextBox1"), TextBox).Text.ToString().Trim() & "'"
64
65 ds = clsB.queryitems(sqlstr)
66
67 Dim wno As String = ds.Tables(0).Rows(0)(0).ToString().Trim()
68
69
70
71 sqlstr = "update etsdl set okscore1='" & _
72
73 CType(GridView1.Rows(e.RowIndex).FindControl("TextBox6"), TextBox).Text.ToString().Trim() & "',okscore2='" & _
74
75 CType(GridView1.Rows(e.RowIndex).FindControl("TextBox7"), TextBox).Text.ToString().Trim() & "',okscore='" & _
76
77 CType(GridView1.Rows(e.RowIndex).FindControl("TextBox8"), TextBox).Text.ToString().Trim() & "',okreport='" & _
78
79 CType(GridView1.Rows(e.RowIndex).FindControl("TextBox9"), TextBox).Text.ToString().Trim() & "',okgrad='" & _
80
81 CType(GridView1.Rows(e.RowIndex).FindControl("TextBox10"), TextBox).Text.ToString().Trim() & "',memo='" & _
82
83 CType(GridView1.Rows(e.RowIndex).FindControl("TextBox12"), TextBox).Text.ToString().Trim() & "' where trano='" & _
84
85 GridView1.DataKeys(e.RowIndex).Value.ToString() & "' and wno='" & wno & "'"
86
87 clsB.ExeSqlCmd(sqlstr)
88
89 GridView1.EditIndex = -1
90
91 binddata()
92
93 End Sub
94
95
96
97 '取消
98
99 Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
100
101 GridView1.EditIndex = -1
102
103 binddata()
104
105 End Sub
106
107
108
109 '删除
110
111 Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
112
113 Dim clsB As New sqlDLTP.business
114
115 Dim sqlstr As String
116
117 Dim ds As New DataSet
118
119 sqlstr = "select hbdwno from etsshbd where hbdcnm='" & CType(GridView1.Rows(e.RowIndex).FindControl("Label1"), Label).Text.ToString().Trim() & "'"
120
121 ds = clsB.queryitems(sqlstr)
122
123 Dim wno As String = ds.Tables(0).Rows(0)(0).ToString().Trim()
124
125
126
127 sqlstr = "delete etsdl where trano=" & GridView1.DataKeys(e.RowIndex).Value.ToString().Trim() & "and wno='" & wno & "'"
128
129 clsB.ExeSqlCmd(sqlstr)
130
131 binddata()
132
133 End Sub
134
135
136
137 '绑定行，特效及链接列属性分配等
138
139 Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
140
141 If e.Row.RowType = DataControlRowType.DataRow Then
142
143
144
145 '鼠标经过时，行背景色变
146
147 e.Row.Attributes.Add("onmouseover", "this.style.backgroundColor='#E6F5FA'")
148
149 '鼠标移出时，行背景色变
150
151 e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor='#FFFFFF'")
152
153 ' HyperLink列给链接值
154
155 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');"
156
157 '当有编辑列时，避免出错，要加的RowState判断
158
159 If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then
160
161
162
163 If CType(e.Row.Cells(12).FindControl("Label11"), Label).Text = "1" Then
164
165 CType(e.Row.Cells(12).FindControl("Label11"), Label).Text = "在职"
166
167 End If
168
169 End If
170
171 End If
172
173 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">
