已有23人关注
Visual Basic数据库系统开发案例精选中“人力资源管理系统”中的问题
发表在VB答疑区 2006-11-17
是否精华
版块置顶:
我想问一个在“人力资源管理系统”中的问题。
在窗体main_fine中查询后要在main_gzgl_cfgl中显示查询结果,但main_gzgl_cfgl中显示结果的语句我不太明白。
Private Sub Form_Activate()
  If sql1 <> "" Then
     Adodc1.RecordSource = sql1
     Adodc1.Refresh
     If Adodc1.Recordset.RecordCount > 0 Then
     Else
        MsgBox "没有找到符合条件的记录", , "提示窗口"
     End If
  End If
End Sub
上面的语句应该就是吧,在Then后面怎么没有语句就直接是Else呢,我按此代码查询后并没有在DataGrid中显示查询结果,而是所有数据。
该怎么解决这个问题呢?
谢谢!!!
分享到:
精彩评论 2
Lemon
学分:0 LV1
2006-11-17
沙发
您好!
   这段代码中的sql1是一个模块级变量,如果sql1不为空,则执行下面的代码。您可以通过单步执行来查看是否执行了后面的语句,进而判断DataGrid中的显示结果。
If…Then的问题应该是一种习惯吧,也可以写成
If Adodc1.Recordset.RecordCount <= 0 Then
MsgBox "没有找到符合条件的记录", , "提示窗口"
End If


   
xiaoxiaoyan
学分:0 LV1
2006-11-18
板凳
谢谢啊!问题已经解决了。呵呵!
以后有问题还会来请教的。
首页上一页 1 下一页尾页 2 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照