| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 486 人关注过本帖
标题:ASP.NET的Web动态控件创建
只看楼主 加入收藏
oooo0000
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2006-5-24
收藏
 问题点数:0 回复次数:0 
ASP.NET的Web动态控件创建
朋友们帮我用C#语言实现以下的功能!
在等待中!!!!!!!!!!!

Dim i As Integer
For i = 0 To IntRowCount - 1
 Dim r As TableRow = New TableRow()
 Dim c1 As TableCell = New TableCell()
 Dim myLabel1 As Label = New Label()

 ‘这里设置该label的ID,对于不同的label,必须设置成不同的ID,我这里设置成前缀lbl1加字段名的组合,例如lbl1xlmc等。

 myLabel1.ID = "Lbl1" & Trim(OleDsField.Tables("Field").Rows(i).Item("column_name")).ToString()
 
 ‘下面的条件语句是为了判断数据库中在字段的值是否为空,根据条件赋予label不同的文本。

 If OleDsField.Tables("Field").Rows(i).Item("column_title").GetType.ToString = "System.DBNull" Then
  myLabel1.Text = ""
 Else
  myLabel1.Text = Trim(OleDsField.Tables("Field").Rows(i).Item("column_title"))
 End If

 c1.Controls.Add(myLabel1)
 r.Cells.Add(c1)
 Dim c2 As TableCell = New TableCell()
 Dim mytextbox As TextBox = New TextBox()
 mytextbox.ID = "Txt" & Trim(OleDsField.Tables("Field").Rows(i).Item("column_name")).ToString()
 If OleDsResult.Tables("Result").Rows(0).Item(i).GetType.ToString = "System.DBNull" Then
  mytextbox.Text = ""
 Else
  mytextbox.Text = Trim(OleDsResult.Tables("Result").Rows(0).Item(i))
 End If

 If Trim(OleDsField.Tables("Field").Rows(i).Item("column_enable")) = "是" Then
  mytextbox.Enabled = True
 Else
  mytextbox.Enabled = False
 End If

 c2.Controls.Add(mytextbox)
 r.Cells.Add(c2)
 Table3.Rows.Add(r)
Next
搜索更多相关主题的帖子: NET 控件 Web ASP 动态 
2006-05-27 15:20
快速回复:ASP.NET的Web动态控件创建
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011208 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved