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

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

VB.NET利用GridView显示主细表并添加打开、关闭功能  

2008-05-15 08:22:48|  分类: .NET/C# |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Private ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\aspxWeb.mdb;Persist Security Info=True"
Private cn1 As OleDbConnection

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
 If Not Page.IsPostBack Then
   Dim cn As OleDbConnection = New OleDbConnection(ConnectionString)
   cn.Open
   cn1 = New OleDbConnection(ConnectionString)
   cn1.Open
   Dim cmd As OleDbCommand = New OleDbCommand("select * from [Subject]", cn)
   Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
   MasterGridView.DataSource = dr
   MasterGridView.DataBind
   dr.Close
   cmd.Dispose
   cn.Dispose
   cn1.Dispose
   cn = cn1 = Nothing
 End If
End Sub

Protected Sub MasterGridView_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
 If e.Row.RowType = DataControlRowType.DataRow Then
   Dim oGridView As GridView = CType(e.Row.FindControl("DetailGridView"), GridView)
   If Not (oGridView Is Nothing) Then
     Dim cmd As OleDbCommand = New OleDbCommand("select top 10 * from Document Where pid = " + MasterGridView.DataKeys(e.Row.RowIndex).Value, cn1)
     Dim dr1 As OleDbDataReader = cmd.ExecuteReader
     oGridView.DataSource = dr1
     oGridView.DataBind
     dr1.Close
     cmd.Dispose
   End If
 End If
End Sub

  评论这张
 
阅读(1068)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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