<%@ Page Language="vb" AutoEventWireup="false" Codebehind="DataGridAccessValues.aspx.vb"
Inherits="aspxWeb.DataGridAccessValues"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</HEAD>
<body>
<form runat="server" ID="Form1">
<ItemStyle verticalalign="Top"></ItemStyle>
<Columns>
<ItemTemplate>
''''
runat="server">
</ItemTemplate>
<ItemTemplate>
''''
runat="server">
</ItemTemplate>
<ItemTemplate>
C#
C++
VB
SQL Server
</ItemTemplate>
<ItemTemplate>
1 Year
3 Year
5 Year
10 Year
</ItemTemplate>
<ItemTemplate>
HighSchool
Graduate
Masters
PHD
</ItemTemplate>
</Columns>
<br>
<br>
</form>
</body>
</HTML>
后端代码： Imports System.Collections
Public Class DataGridAccessValues
Inherits System.Web.UI.Page
Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
Protected WithEvents GetValues As System.Web.UI.WebControls.Button
Protected WithEvents ResultField As System.Web.UI.WebControls.Label
#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
Public Sub GetValues_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GetValues.Click
Dim Result As String = ""
Dim dataGridItem As DataGridItem
For Each dataGridItem In MyDataGrid.Items
Dim Name As String = dataGridItem.Cells(0).Text
Dim AgeField As TextBox = dataGridItem.FindControl("AgeField")
Dim Age As Integer = System.Convert.ToInt64(AgeField.Text).ToString()
Dim IsGraduateField As CheckBox = dataGridItem.FindControl("IsGraduateField")
Dim IsGraduate As Boolean = IsGraduateField.Checked
Dim Skills As String = ""
Dim item As ListItem
Dim CheckBoxList1 As CheckBoxList = dataGridItem.FindControl("CheckBoxList1")
For Each item In CheckBoxList1.Items
If item.Selected Then
Skills = Skills + item.Value + ","
End If
Next
Skills = Skills.TrimEnd(",")
Dim RadioButtonList1 As RadioButtonList = dataGridItem.FindControl("RadioButtonList1")
Dim Experience As String = RadioButtonList1.SelectedItem.Text
Dim DropDownList1 As DropDownList = dataGridItem.FindControl("DropDownList1")
Dim Degree As String = DropDownList1.SelectedItem.Text
Result = Result + Name
Result = Result + "[年龄：" + Age.ToString() + "]"
Result += " "
If IsGraduate Then
Result += "已经毕业 , "
Else
Result += "没有毕业 , "
End If
Result += "技能：" + Skills + " , "
Result += "经验： " + Experience + " , 和 "
Result += "学位： " + Degree + "。"
Result += "<br>"
Next
ResultField.Text = Result
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
''''在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
Dim data As ArrayList = New ArrayList()
data.Add(New Person("Net_lover", 33, True))
data.Add(New Person("孟子E章", 28, True))
data.Add(New Person("精彩世界", 20, False))
data.Add(New Person("XML开发", 27, True))
MyDataGrid.DataSource = data
MyDataGrid.DataBind()
End If
End Sub
End Class
Public Class Person
Private _Name As String
Private _Age As Integer
Private _IsGraduate As Boolean
Public Sub New(ByVal Name As String, ByVal Age As Integer, ByVal IsGraduate As Boolean)
_Name = Name
_Age = Age
_IsGraduate = IsGraduate
End Sub
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal Value As String)
_Name = Value
End Set
End Property
Public Property Age() As Integer
Get
Return _Age
End Get
Set(ByVal Value As Integer)
_Age = Value
End Set
End Property
Public Property IsGraduate() As Boolean
Get
Return _IsGraduate
End Get
Set(ByVal Value As Boolean)
_IsGraduate = Value
End Set
End Property
End Class
C#例子代码： <%@ Page Language="C#" %>
<%@ import Namespace="System.Collections" %>
<html>
<head>
</head>
<body>
<form runat="server">
<ItemStyle verticalalign="Top"></ItemStyle>
<Columns>
<ItemTemplate>
''''
runat="server">
</ItemTemplate>
<ItemTemplate>
''''
runat="server">
</ItemTemplate>
<ItemTemplate>
C#
C++
VB
SQL Server
</ItemTemplate>
<ItemTemplate>
Less then 1 Year
Less then 3 Year
Less then 5 Year
Less then 10 Year
</ItemTemplate>
<ItemTemplate>
HighSchool
Graduate
Masters
PHD
</ItemTemplate>
</Columns>
<br />
<br />
</form>
</body>
</HTML>
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口 [系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载 [常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅（三）—共享成员 [VB.NET程序]Henry的VB.NET之旅（二）—构造与析构 [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体 [VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET） [VB.NET程序]VB.NET中关于DataGrid颜色的自定义。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
