标题:为什么我的程序中所有的系统函数都不能用,
只看楼主
vb菜鸟
Rank: 1
等 级:新手上路
帖 子:61
专家分:0
注 册:2005-4-26
 问题点数:0 回复次数:5 
为什么我的程序中所有的系统函数都不能用,
各位大师: 为什么我的程序中所有的系统函数都不能用,如,DATE()、MID() CSTR()TRIM()等函数都不能用,运行就会在有系统函数的地方遇到“找不到工程或库”的错误,如下所示,请各位大师帮我看看,深谢! Private Sub Form_Load() '初始化 Login.Caption = "登录" txtDate = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" DTPicker1.Value = Date Call pd If datacount = 0 Then Operater1 = "无" Combo1.Enabled = False txtPassword.Enabled = False cmdOK.Enabled = True Text1.Visible = True Else operater.Recordset.MoveFirst Do While operater.Recordset.EOF = False Combo1.AddItem operater.Recordset.Fields(0) operater.Recordset.MoveNext Loop Text1.Visible = False End If End Sub Private Sub CmdOK_Click() '登录 If Trim(txtPassword) = Password And Password <> "" Or datacount = 0 Then If Login1 = 1 Then Load Mainform Else Mainform.Show End If If Rights = 2 Then Mainform.M_Setup.Visible = False Else Mainform.M_Setup.Visible = True End If Me.Hide If Login1 = 1 Then Mainform.StatusBar1.Panels.Item(1).Text = "管理员: " & Operater1 If Rights = 1 Then Mainform.M_ChangePassword.Visible = True Else Mainform.M_ChangePassword.Visible = False End If Else MsgBox "输入的密码有误,请重新输入!!!!" txtPassword.SetFocus End If txtPassword = "" End Sub
搜索更多相关主题的帖子: 系统函数 程序中 
2005-05-22 16:53
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 
说过是对象引用丢失了。

天津网站建设 http://www./
2005-05-22 17:23
vb菜鸟
Rank: 1
等 级:新手上路
帖 子:61
专家分:0
注 册:2005-4-26
得分:0 
对,好像是对象丢失了,我查了一下是这一个对象丢失"Microsoft ADO Ext.2.7 For DDL and securyt"那应该怎么办呢????????

2005-05-22 19:46
vb菜鸟
Rank: 1
等 级:新手上路
帖 子:61
专家分:0
注 册:2005-4-26
得分:0 
不知为什么我的VB里没Microsoft ADO Ext.2.7 For DDL and securyt这一项

2005-05-22 20:45
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 
2.5有吗?
如果你没有用AdoX可以去掉引用。

天津网站建设 http://www./
2005-05-22 21:02
vb菜鸟
Rank: 1
等 级:新手上路
帖 子:61
专家分:0
注 册:2005-4-26
得分:0 
版主果然高明,问题解决了,非常感谢!!!!!!!!!!!!

2005-05-23 09:02



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-19022-1-1.html




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

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