controldata.aspx

来自「用VB实现」· ASPX 代码 · 共 104 行

ASPX
104 行
字号 
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<script runat="server">

Sub btnSelect_Click(sender As Object, e As System.EventArgs)
  
 Dim objCheckBox as System.Web.UI.WebControls.CheckBox
 Dim intLoop as integer  
 Dim blnChecked as Boolean 
 dim strSelect as string 
 For intLoop = 0 To dgCustomer.Items.Count-1
   
   objCheckBox = dgCustomer.Items.item(intLoop).Cells(2).controls(1)
   blnChecked  = objCheckBox.Checked
  
   If blnChecked = True  Then   
     strSelect = dgCustomer.Items.item(intLoop).Cells(1).Text
	 txtSelect.Text = txtSelect.Text & strSelect & vbcrlf
   End IF    
   
  Next 
 
End Sub 

</script>

<MM:DataSet 
id="dsCustomer"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT * FROM Customers" %>'
Debug="true" PageSize="10"
></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>控件字段</title>
</head>
<body>
<form runat="server">

  <table width="462" border="0">
  <tr>
    <td width="258"><div align="center">
      <asp:DataGrid ID="dgCustomer" 
  runat="server" 
  AllowSorting="False" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" 
  ShowFooter="false" 
  ShowHeader="true" 
  DataSource="<%# dsCustomer.DefaultView %>" 
  PagerStyle-Mode="NextPrev" 
  AllowPaging="true" 
  AllowCustomPaging="true" 
  PageSize="<%# dsCustomer.PageSize %>" 
  virtualitemcount="<%# dsCustomer.RecordCount %>" 
  OnPageIndexChanged="dsCustomer.OnDataGridPageIndexChanged" 
>
          <headerstyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />          
          <itemstyle BackColor="#F2F2F2" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />          
          <alternatingitemstyle BackColor="#E5E5E5" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />          
          <footerstyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />          
          <pagerstyle BackColor="white" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />          
          <columns>
          <asp:BoundColumn DataField="CustomerID" 
        HeaderText="客户编号" 
        ReadOnly="true" 
        Visible="True"/>          
          <asp:BoundColumn DataField="CustomerName" 
        HeaderText="客户名称" 
        ReadOnly="true" 
        Visible="True"/>          
<asp:TemplateColumn HeaderText="选择" Visible="True">
            <ItemTemplate>
              <asp:CheckBox ID="chkOrder" runat="server" /></ItemTemplate>
          </asp:TemplateColumn>
          </columns>
      </asp:DataGrid>
    </div>            </td>
    <td width="188"><p align="center">选择内容</p>
      <div align="center">
        <asp:TextBox ID="txtSelect" runat="server" Columns="10" TextMode="MultiLine" Rows="10" />      
</div></td>
  </tr>
  <tr>
    <td>  <div align="center">
      <asp:Button ID="btnSelect" Text="显示选择名单" runat="server" OnClick="btnSelect_Click" />     
    </div></td>
    <td><div align="center"></div></td>
  </tr>
</table>

</form>

</body>

</html>

controldata.aspx - 源码说明

本页面展示了「用VB实现」中的 controldata.aspx 源码文件，采用 ASPX 编程语言编写，共 104 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?