Dim c As Integer = DataGrid1.Items.Count
Dim i
For i = 0 To (c - 1)
'从列表依次选取 每行
Dim chkSelected
Dim chkSelected1
chkSelected = Nothing
chkSelected = DataGrid1.Items(i).FindControl("主菜单")
chkSelected1 = DataGrid1.Items(i).FindControl("顺序")
If (Not (chkSelected Is Nothing)) Then
'找到每行的复选框
Label1.Text = chkSelected
If (chkSelected.Checked = True) Then
'如果复选框被选中,更新此行的内容
Label1.Text = chkSelected
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class menu_info
Inherits System.Web.UI.Page
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Button3 As System.Web.UI.WebControls.Button
Protected WithEvents Button4 As System.Web.UI.WebControls.Button
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'判断是否有权限访问
If Session("yes") <> "yes" Then
Response.Redirect("error.aspx?number=1")
End If
'连接数据库信息
Dim str As String = ConfigurationSettings.AppSettings("conn")
Dim conn As SqlConnection
conn = New SqlConnection()
conn.ConnectionString = str
conn.Open()
'结束信息
Dim da As SqlDataAdapter
Dim ds As New DataSet()
Dim dv As DataTable
da = New SqlDataAdapter("select distinct zhu as 主菜单,shunxu as 顺序 from menu ", conn)
da.Fill(ds, "table1")
dv = ds.Tables("table1")
DataGrid1.DataSource = dv
DataGrid1.DataBind()
End Sub
Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
End Sub
Private Sub DataGrid1_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
DataGrid1.CurrentPageIndex = e.NewPageIndex
DataGrid1.DataBind()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Redirect("addmenu_zhu.aspx")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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
Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
对了,你要先试试你的单选按钮运行是否正常,是不是可以选择唯一的一个。我遇到过这样的问题使用<asp:radiobutton.......>时,单选按钮不能单选,要使用<input type="radio" value="<%# Container.ItemIndex %>"......>。要是使用<asp:radiobutton.......>可以,
for i=0 to dcou.Items.Count-1
dim h as RadioButton
h=Ctype(dcou.Items(i).Cells(0).Controls(1),RadioButton)
if h.Checked = true then
str1=dcou.Items(i).Cells(2).Text
end if
next
就行。其中str1就是你所选中行的某一个字段的值
要写在提交按钮的onclick事件中