1
<
%@ Page Language
=
"
vb
"
autoeventwireup
=
"
false
"
%
>
2
<
%@ import
Namespace =
Namespace="System.Data.SqlClient" %>
3
<script runat="server">
4
5
Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
6 If Not IsPostBack Then
7 Dim conn As New SqlConnection("server=.;database=northwind;uid=sa;pwd=091688;")
8 Dim sql = "select employeeid, lastname from employees order by employeeid"
9 Dim cmd As New SqlCommand(sql, conn)
10 conn.Open()
11 DataGrid1.DataSource = cmd.ExecuteReader()
12 DataGrid1.DataBind()
13 conn.Close()
14 End If
15
End Sub
16
17 Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
18 Dim cb As CheckBox
19 Dim sb As New System.Text.StringBuilder
20 Dim li As DataGridItem
21
22 For Each li In DataGrid1.Items
23 cb = li.FindControl("chk")
24 If Not cb Is Nothing And cb.Checked Then
25 sb.Append(li.Cells(1).Text & ",")
26 End If
27 Next
28 Response.Write("You selected " & sb.ToString())
29 End Sub
30
31</script>
32<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
33<html>
34<head>
35</head>
36<body ms_positioning="GridLayout">
37 <form id="Form1" method="post" runat="server">
38 <ASP:DATAGRID id="DataGrid1" runat="server" autogeneratecolumns="False" GridLines="Vertical" CellPadding="3" BackColor="White" BorderWidth="1px" BorderStyle="None" BorderColor="#999999">
39 <FooterStyle forecolor="Black" backcolor="#CCCCCC"></FooterStyle>
40 <SelectedItemStyle font-bold="True" forecolor="White" backcolor="#008A8C"></SelectedItemStyle>
41 <AlternatingItemStyle backcolor="#DCDCDC"></AlternatingItemStyle>
42 <ItemStyle forecolor="Black" backcolor="#EEEEEE"></ItemStyle>
43 <HeaderStyle font-bold="True" forecolor="White" backcolor="#000084"></HeaderStyle>
44 <Columns>
45 <asp:TemplateColumn>
46 <ItemTemplate>
47 <ASP:CHECKBOX id="chk" runat="server" />
48 </ItemTemplate>
49 </asp:TemplateColumn>
50 <asp:BoundColumn DataField="EmployeeID"></asp:BoundColumn>
51 <asp:BoundColumn DataField="LastName"></asp:BoundColumn>
52 </Columns>
53 <PagerStyle horizontalalign="Center" forecolor="Black" backcolor="#999999" mode="NumericPages"></PagerStyle>
54 </ASP:DATAGRID>
55 <ASP:BUTTON id="Button1" onclick="Button1_Click" runat="server" text="Button"></ASP:BUTTON>
56 </form>
57</body>
58</html>
<
%@ Page Language
=
"
vb
"
autoeventwireup
=
"
false
"
%
>
2
<
%@ import
Namespace =
Namespace="System.Data.SqlClient" %>3
<script runat="server">4
5
Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load6
If Not IsPostBack Then7
Dim conn As New SqlConnection("server=.;database=northwind;uid=sa;pwd=091688;")8
Dim sql = "select employeeid, lastname from employees order by employeeid"9
Dim cmd As New SqlCommand(sql, conn)10
conn.Open()11
DataGrid1.DataSource = cmd.ExecuteReader()12
DataGrid1.DataBind()13
conn.Close()14
End If15
End Sub16
17
Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)18
Dim cb As CheckBox19
Dim sb As New System.Text.StringBuilder20
Dim li As DataGridItem21
22
For Each li In DataGrid1.Items23
cb = li.FindControl("chk")24
If Not cb Is Nothing And cb.Checked Then25
sb.Append(li.Cells(1).Text & ",")26
End If27
Next28
Response.Write("You selected " & sb.ToString())29
End Sub30
31
</script>32
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">33
<html>34
<head>35
</head>36
<body ms_positioning="GridLayout">37
<form id="Form1" method="post" runat="server">38
<ASP:DATAGRID id="DataGrid1" runat="server" autogeneratecolumns="False" GridLines="Vertical" CellPadding="3" BackColor="White" BorderWidth="1px" BorderStyle="None" BorderColor="#999999">39
<FooterStyle forecolor="Black" backcolor="#CCCCCC"></FooterStyle>40
<SelectedItemStyle font-bold="True" forecolor="White" backcolor="#008A8C"></SelectedItemStyle>41
<AlternatingItemStyle backcolor="#DCDCDC"></AlternatingItemStyle>42
<ItemStyle forecolor="Black" backcolor="#EEEEEE"></ItemStyle>43
<HeaderStyle font-bold="True" forecolor="White" backcolor="#000084"></HeaderStyle>44
<Columns>45
<asp:TemplateColumn>46
<ItemTemplate>47
<ASP:CHECKBOX id="chk" runat="server" />48
</ItemTemplate>49
</asp:TemplateColumn>50
<asp:BoundColumn DataField="EmployeeID"></asp:BoundColumn>51
<asp:BoundColumn DataField="LastName"></asp:BoundColumn>52
</Columns>53
<PagerStyle horizontalalign="Center" forecolor="Black" backcolor="#999999" mode="NumericPages"></PagerStyle>54
</ASP:DATAGRID>55
<ASP:BUTTON id="Button1" onclick="Button1_Click" runat="server" text="Button"></ASP:BUTTON>56
</form>57
</body>58
</html>
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
