datagird高手的问题！

lang888 2003-08-22 12:05:09

我用datagrid做了个摸版列，里面放了个多选按牛，我的目的是点击多选按牛获得这一行的任意字段的值。我写了如下的代码，当点击按牛时，所有的记录都显示出来了，我想选那个，显示那个？这该怎么写？

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim c As Integer = DataGrid1.Items.Count
Dim i
For i = 0 To (c - 1)
Dim chkSelected
chkSelected = DataGrid1.Items(i).Cells(1).Text
Response.Write(chkSelected)
Next

End Sub

其中多选按牛的ID是chkSelected 不知道为什么不写Dim chkSelected，会提示 chkSelected 没有定义！

...全文

28 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

xunx 2003-08-22

打赏
举报

因为你的chkSelected是模板内的控件在
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
内是不可见，所以你使用chkSelected，系统就会认为是一个变量，因而提示你没有定义

guoyan19811021 2003-08-22

打赏
举报

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="ReLogin.aspx.vb" Inherits="dzwd.ReLogin"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>ReLogin</title>
<meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<FONT face="宋体"></FONT>
<asp:datagrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 80px; POSITION: absolute; TOP: 68px" runat="server" BorderColor="#CC9966" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="4" AutoGenerateColumns="False" PageSize="5" Width="172px">
<SelectedItemStyle Font-Bold="True" ForeColor="#663399" BackColor="#FFCC66"></SelectedItemStyle>
<ItemStyle ForeColor="#330099" BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#FFFFCC" BackColor="#990000"></HeaderStyle>
<FooterStyle ForeColor="#330099" BackColor="#FFFFCC"></FooterStyle>
<Columns>
<asp:TemplateColumn>
<ItemTemplate>
<asp:CheckBox id="che" runat="server"></asp:CheckBox>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList id="DropDownList1" runat="server" Width="96px" AutoPostBack="True">
<asp:ListItem Value="2">2</asp:ListItem>
<asp:ListItem Value="1">1</asp:ListItem>
</asp:DropDownList>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumn DataField="username" HeaderText="主菜单"></asp:BoundColumn>
</Columns>
<PagerStyle HorizontalAlign="Center" ForeColor="#330099" BackColor="#FFFFCC"></PagerStyle>
</asp:datagrid><asp:button id="Button1" style="Z-INDEX: 102; LEFT: 84px; POSITION: absolute; TOP: 32px" runat="server" Text="子菜单"></asp:button></form>
</body>
</HTML>
==============
.vb:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer
Dim c As Integer = DataGrid1.Items.Count
Dim chkSelected As CheckBox

For i = 0 To (c - 1)
'从列表依次选取每行
chkSelected = Nothing
chkSelected = DataGrid1.Items(i).FindControl("che")

If (Not (chkSelected Is Nothing)) Then
'找到每行的复选框

If (chkSelected.Checked = True) Then
'如果复选框被选中,更新此行的内容
Response.Write(DataGrid1.Items(i).Cells(1).Text)

End If
End If
Next

End Sub

zhaoliangpat 2003-08-22