最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
个性化查询（具有分类模糊查询、换页等功能）
时间：2022-07-02 12:07:15 编辑：袖梨 来源：一聚教程网
下面是一个以查询为主的代码页，用的是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
相关文章
- 秘塔猫写作网页版直达-秘塔写作猫官网入口 03-22
- 鸣潮3.2声骸管理方案套装码合集-声骸管理方案是设置弃置还是锁 03-22
- 鸣潮3.2版本更新内容-鸣潮「于影中启明的决心」3.2版本内容说明 03-22
- 归环抽卡概率有多高 03-22
- duyin抖音官网首页-网页版入口地址 03-22
- 奇漫屋免费版下载入口安卓版-奇漫屋app下载安装官方正版 03-22