| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 771 人关注过本帖
标题:搜索数据并显示在MSFLEXGRID控件中,为什么有些记录搜索不到,高手帮解决下
只看楼主 加入收藏
qq30254352
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-4-17
收藏
 问题点数:0 回复次数:2 
搜索数据并显示在MSFLEXGRID控件中,为什么有些记录搜索不到,高手帮解决下
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
  MsgBox "请输入查询条件!"
  Exit Sub
End If
If Text1.Text <> "" And Text2.Text = "" And Text3.Text = "" Then
  str = "select * from 会员表 where 姓名='" & Trim(Text1.Text) & "'"
End If
If Text2.Text <> "" And Text1.Text = "" And Text3.Text = "" Then
  str = "select * from 会员表 where 会员卡号='" & Trim(Text2.Text) & "'"
End If
If Text3.Text <> "" And Text2.Text = "" And Text1.Text = "" Then
  str = "select * from 会员表 where 备注='" & Trim(Text3.Text) & "'"
End If

re.Open str, conn, 1, 3
If re.RecordCount = 0 Then
  MsgBox "你要搜索的客户不存在,请核对!"
  Exit Sub
End If
Me.MSFlex1.Rows = re.RecordCount + 1
For i = 1 To re.RecordCount
   For j = 0 To 4
   Me.MSFlex1.Row = i
    Me.MSFlex1.Col = j
    If re(j) = "" Then
    Me.MSFlex1.Text = ""
    Else
    Me.MSFlex1.Text = re(j)
    End If
    Next j
    re.MoveNext
Next i
re.Close
搜索更多相关主题的帖子: MSFLEXGRID 控件 数据 搜索 
2010-09-25 12:05
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
你把你查不到的数据,直接到 ACCESS 里建查询来查询一下,看看能查到不,
如果查不到,那么检查你的查询命令。如果是得到,那检查你生成的SQL 命令。

建议你使用 模糊查询 like 关键字。

授人于鱼,不如授人于渔
早已停用QQ了
2010-09-25 15:02
qq30254352
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-4-17
收藏
得分:0 
我试试like 关键字
2010-09-25 15:26
快速回复:搜索数据并显示在MSFLEXGRID控件中,为什么有些记录搜索不到,高手帮解 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016491 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved