最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
个性化查询(具有分类模糊查询、换页等功能)
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
下面是一个以查询为主的代码页,用的是datagrid,查询中我使用了一个DropDownList,用来判断是根据学号查询,还是根据用户名查询,至于查询的范围,你可以任意加的,至于显示共有多少页及当前页面的代码,我前面已经发过了:)
这里用到了一个隐藏域,目的是避免当前页的索引值小于0。
代码如下:
Sub pagechange(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
'//////////////bata2中必须写的,否则将不能换页!
DataGrid1.CurrentPageIndex = e.NewPageIndex
bindgrid()
End Sub
Public Sub bindgrid()
Select Case DropDownList1.SelectedIndex
Case 0
'//////////////在下面的sql语句里你可以增加查询字段
Dim sql As String = "select * from stu_base where stu_id like '%" & keyword.Text & "%'"
Dim comm As SqlDataAdapter = New SqlDataAdapter(sql, conn)
Dim ds As DataSet
ds = New DataSet()
comm.Fill(ds, "stu_base")
If ds.tables("stu_base") Is "" Then
这里用到了一个隐藏域,目的是避免当前页的索引值小于0。
代码如下:
Sub pagechange(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
'//////////////bata2中必须写的,否则将不能换页!
DataGrid1.CurrentPageIndex = e.NewPageIndex
bindgrid()
End Sub
Public Sub bindgrid()
Select Case DropDownList1.SelectedIndex
Case 0
'//////////////在下面的sql语句里你可以增加查询字段
Dim sql As String = "select * from stu_base where stu_id like '%" & keyword.Text & "%'"
Dim comm As SqlDataAdapter = New SqlDataAdapter(sql, conn)
Dim ds As DataSet
ds = New DataSet()
comm.Fill(ds, "stu_base")
If ds.tables("stu_base") Is "" Then
相关文章
- C#复制数组的两种方式及效率比较解读 10-24
- ASP.NET Identity用法解析 10-24
- ASP.NET MVC使用Identity增删改查用户介绍 10-24
- C语言中atoi函数模拟实现介绍 10-18
- .Net反向代理组件Yarp用法介绍 10-10
- .NET使用YARP通过编码方式配置域名转发实现反向代理教程 10-10