用vb.net如何 编程遍历页面上所有TextBox控件并给它赋值为string.Empty？

For Each ctl As Control In Me.Controls If TryCast(ctl, TextBox) Nothing Then Dim txt As TextBox = TryCast(ctl, TextBox) txt.Text = "" End If

成都创新互联是一家专业从事成都网站设计、成都网站制作的网络公司。作为专业的建站公司,成都创新互联依托的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、网络营销推广及网站设计开发服务！

VB.NET中使用AspNetPager控件的详细用法

AspNetPager简单使用方法 AspNetPager作为分页工具,常常用于绑定数据控件,如DataGrid , Repeater等

在这里,简单讲解下 绑定 Repeater 控件的方法,其余控件绑定方法类似:

'全局变量 i 用于 读取 数据集记录的条数(注意:读取一次就够了)

Dim i As New Integer

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If i = 0 Then

con = New SqlConnection(ConfigurationManager.ConnectionStrings("NEWS_ConnectionString").ConnectionString)

con.Open()

cmd = New SqlCommand()

cmd.Connection = con

cmd.CommandText = "select count(*) from XWNRB "

'AspNetPager控件 可见

Me.AspNetPager1.Visible = True

'AspNetPager控件 每页显示大小为10条记录

Me.AspNetPager1.PageSize = 10

'AspNetPager控件 记录总的记录条数

Me.AspNetPager1.RecordCount = Convert.ToInt32(cmd.ExecuteScalar())

'AspNetPager控件 数据绑定

Me.SHOW_DATA_LIST()

i = i + 1

con.Close()

End If

End Sub

Protected Sub SHOW_DATA_LIST()

con = New SqlConnection(ConfigurationManager.ConnectionStrings("NEWS_ConnectionString").ConnectionString)

sql_Text = "select * from XWNRB where "

da = New SqlDataAdapter(sql_Text, con)

Dim ds As New Data.DataSet

'第一个参数为存储入的数据集为ds

'第二个参数为存储的起始记录序号

'第三个参数为存储的记录每页条数

'第四个参数为存储入的数据集ds中的具体某个表

da.Fill(ds, Me.AspNetPager1.PageSize * (Me.AspNetPager1.CurrentPageIndex - 1), Me.AspNetPager1.PageSize, "NEWS_LIST")

'真正绑定

Me.Repeater2.DataSource = ds.Tables("NEWS_LIST").DefaultView

Me.Repeater2.DataBind()

End Sub

'即每次点击新的页面,或者点击 Pre,Next,Last.....时候都会触发这个事件

Protected Sub AspNetPager1_PageChanged(ByVal src As Object, ByVal e As Wuqi.Webdiyer.PageChangedEventArgs) Handles AspNetPager1.PageChanged

'更新当前所在的页数序列

Me.AspNetPager1.CurrentPageIndex = e.NewPageIndex

'更新完后绑定

Me.SHOW_DATA_LIST()

End Sub

请问，VB.NET TabControl1控件加载NewTabPage1页，NewTabPage1里面的DataGridView1事件没反应？

题主是不是用的 TabControl1.Controls.Add(TabPage1) 或者 TabControl1.TabPages.Add(TabPage1) 这种方法添加的？

这样的话不但添加的第二个页面是空白的，第一个页面也会变成空白，因为对系统来说，存在了两个 TabPage1，而原先 TabPage1 里的控件用的是 Me.TabPage1.Controls.Add(Label1) 之类的方法添加进去的，有两个 TabPage1 系统就糊涂了不知道是该往哪一个里面加，所以就出现了两个都是空白的。

可以用的变通的方法实现。

比如：

用一个 Panel 承装 TabPage1 里的所有控件，在选中 TabPage2 时，执行

TabPage1.Controls.Remove(Panel1)

TabPage2.Controls.Add(Panel1)

先移除再添加，这样就不会出错了。

再比如：

最初设计 TabPage1 的时候就不要先添加进去，而是作为一个基类，有点儿说不明白，看代码吧：

如何用VB.NET向页面指定位置追加控件

首先你的问题不太清楚，按照我的理解回答吧，你可以直接隐藏控件，然后在合适的时候显示。估计是理解错误。