注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

利用Asp.net动态创建DataList  

2011-07-10 13:26:30|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 'Put user code to initialize the page here
 Dim dl As New DataList
 dl.HeaderTemplate = New CreateDL(ListItemType.Header)
 dl.ItemTemplate = New CreateDL(ListItemType.Item)
 dl.AlternatingItemTemplate = New CreateDL(ListItemType.AlternatingItem)
 dl.FooterTemplate = New CreateDL(ListItemType.Footer)
 Dim d As New Data
 dl.DataSource = d.getTree
 dl.DataBind()
 div1.Controls.Add(dl)
 End Sub
Public Class CreateDL
 Implements ITemplate
 Shared itemcount As Integer = 0
 Dim TemplateType As ListItemType
 Sub New(ByVal type As ListItemType)
 TemplateType = type
 End Sub
 Sub InstantiateIn(ByVal container As Control) Implements ITemplate.InstantiateIn
 Dim lc As New Literal
 Select Case TemplateType
 Case ListItemType.Header
 lc.Text = "TABLE border=1TRTHItems/TH/TR"
 Case ListItemType.Item
 lc.Text = "TRTDItem number: " ' itemcount.ToString  "/TD/TR"
 AddHandler lc.DataBinding, AddressOf TemplateControl_Databinding
 Case ListItemType.AlternatingItem
 lc.Text = "TRTD bgcolor=lightblueItem number: " _
  itemcount.ToString  "/TD/TR"
 Case ListItemType.Footer
 lc.Text = "/TABLE"
 End Select
 container.Controls.Add(lc)
 itemcount += 1
 End Sub
 Private Sub TemplateControl_DataBinding(ByVal sender As Object, _
 ByVal e As System.EventArgs)
 Dim lc As Literal
 lc = CType(sender, Literal)
 Dim container As DataListItem
 container = CType(lc.NamingContainer, DataListItem)
 lc.Text = DataBinder.Eval(container.DataItem, "text")
 lc.Text = "/TD/TR"
 End Sub
End Class

  评论这张
 
阅读(185)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017