| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1615 人关注过本帖
标题:from子语法错误,急啊,
只看楼主 加入收藏
ouzhiguang
Rank: 1
来 自:湖南长沙
等 级:新手上路
威 望:1
帖 子:240
专家分:0
注 册:2007-5-18
收藏
得分:0 

Private Sub Command1_Click()
If Combo1.Text = "" And Combo2.Text = "" And Combo3.Text = "" Then
MsgBox ("请输入一个查询依据!")
Combo1.SetFocus
Exit Sub
End If
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox ("请确定一个搜索依据!")
Exit Sub
End If
If Option1.Value = True Then
If Not IsNumeric(Combo1.Text) Then
MsgBox ("编号请输入数字!")
Combo1.SetFocus
Exit Sub
End If
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (" 供应商编号 like '" & Combo1.Text & "' ")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then

MsgBox "没有找到!"
Else
MsgBox "已经找到!"

DataGrid1.Refresh
End If
Exit Sub
End If


If Option2.Value Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (" 公司名称 like '" & Combo2.Text & "' ")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then

MsgBox "没有找到!"
Else
MsgBox "已经找到!"

DataGrid1.Refresh
End If
Exit Sub
End If
If Option3.Value Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (" 联系人姓名 like '" & Combo3.Text & "' ")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then

MsgBox "没有找到!"
Else
MsgBox "已经找到!"

DataGrid1.Refresh
End If

End If
End Sub

这个能完成跟你的程序一样的功能 不会报错,你那问题你 自己再找找原因!

2007-05-23 14:28
qjbqr
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-5-22
收藏
得分:0 

谢谢,终于解决了,谢谢大家

2007-05-24 04:04
快速回复:from子语法错误,急啊,
数据加载中...
 
   



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

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