7517
社区成员
关于VB FindFirst 的一个简单问题
Data1.Recordset.FindFirst "外卡号='" & Text1(0).Text & " '"
If Data1.Recordset.NoMatch = False Then
Command2.Enabled = False
Text1(0).Enabled = False
Next i
Else
MsgBox ("账号输入错误，请重新输入")
Text1(0).Enabled = True
Text1(0).Text = ""
Command2.Enabled = True
End If
请问一下高手，为什么系统提示第一句有错误呢？
If Data1.Recordset.NoMatch = False Then
Command2.Enabled = False
Text1(0).Enabled = False
Next i
Else
MsgBox ("账号输入错误，请重新输入")
Text1(0).Enabled = True
Text1(0).Text = ""
Command2.Enabled = True
End If
请问一下高手，为什么系统提示第一句有错误呢？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cococo_coco 2009-12-19
感觉好像是连不上数据库，就连data1.recordset.movefirst也没用。我用其他的方法是说是“该操作被关联对象取消”，高手来解答一下啊。
下面这段代码也不行（数据库应该都连好了，dataname和recordsource都设置好了）。
Private Sub Command2_Click()
Dim final As Integer, Flag As Integer
Flag = 1
Data1.Recordset.MoveLast
final = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
For i = 1 To final
If Data1.Recordset.Fields("外卡号") = Text1(0).Text Then
Flag = 0
Exit For
Else
Data1.Recordset.MoveNext
End If
Next i
If Flag = 0 Then
Command2.Enabled = False1
Text1(0).Enabled = False
Command3.Enabled = True
For i = 0 To 2
Command1(i).Enabled = True
Next i
Else
MsgBox ("账号输入错误，请重新输入")
Text1(0).Enabled = True
Text1(0).Text = ""
Command2.Enabled = True
For i = 0 To 5
Text2(i).Text = ""
Next i
For j = 0 To 2
Text3(j).Text = ""
Next j
End If
End Sub
下面这段代码也不行（数据库应该都连好了，dataname和recordsource都设置好了）。
Private Sub Command2_Click()
Dim final As Integer, Flag As Integer
Flag = 1
Data1.Recordset.MoveLast
final = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
For i = 1 To final
If Data1.Recordset.Fields("外卡号") = Text1(0).Text Then
Flag = 0
Exit For
Else
Data1.Recordset.MoveNext
End If
Next i
If Flag = 0 Then
Command2.Enabled = False1
Text1(0).Enabled = False
Command3.Enabled = True
For i = 0 To 2
Command1(i).Enabled = True
Next i
Else
MsgBox ("账号输入错误，请重新输入")
Text1(0).Enabled = True
Text1(0).Text = ""
Command2.Enabled = True
For i = 0 To 5
Text2(i).Text = ""
Next i
For j = 0 To 2
Text3(j).Text = ""
Next j
End If
End Sub
cococo_coco 2009-12-19
符号的输入在程序中是没有任何问题的
luofenghen 2009-12-19
不是吧 我看他双引号里 的 单引号是用中文输入法的 要改成英文输入法的''
cbm6666 2009-12-19
Data1.Recordset.MoveFirst '此行一定要加
Data1.Recordset.FindFirst "外卡号 =" & Chr(39) & Text1(0).Text & Chr(39)
If Not Data1.Recordset.NoMatch Then
MsgBox........
Data1.Recordset.FindFirst "外卡号 =" & Chr(39) & Text1(0).Text & Chr(39)
If Not Data1.Recordset.NoMatch Then
MsgBox........
C#基础教程-c#实例教程，适合初学者 第一章 C#语言基础 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，...
VB问题集锦及编程技巧 VB问题集锦及编程技巧 一、sp2、sp3、企业版有何区别 问 请问vb中的sp2、sp3、企业版这三种，各代表什么含义? 答 sp是service pack的缩写。微软每推出一个软件后，都会不定期地推出一些补丁程序，依时间先后称为sp1...
vb数据库增，删，改，查简单实现 Dim Con As New ADODB.Connection '定义数据库连接对象 Dim Rs As New ADODB.Recordset '定义数据库...Private Sub Cmd_Delete_Click() '删除一条记录 Rs.Delete If Not Rs.BOF Then Rs.MoveNext Else
简单问题：VIM中 查找 “上一个” 的快捷键是什么？ 输入 n 会查找下一个结果 /pattern 向下搜索 n继续搜索下一个 ?pattern 向上搜索 #继续搜索上一个 1. 暂时显示/取消行号： 使用Vim打开文件后，在Normal模式下输入 :set number（或 :se
做一个简单的塔防游戏 1、设置一个Create Empty 挂上三个脚本取名GameControlScript、CreatTowerScript、CreatEnemyScripts （1）、GameControlScript sing System.Collections; using System.Collections.Generic; //这个脚本 //1、...
VB学习笔记（一）VB操作字符串 在vb中 dim a# 定义a变量为双精度型变量~ #是类型符 % 整型 & 长整型 ！单精度 $ 字符型 VB中strconv 的作用 StrConv（"要转换的字符串"，转换类型）转换类型可以取的值是：vbUpperCase 1 将字符串文字转成...
vb sendmessage 详解1 EM_CANUNDO(&HC6=198),0,0 决定前一次编辑操作是否能够撤消：检测控件撤消缓冲区是否为空，通常控件把最后一次在控件的编辑操作保存在一个撤消缓冲区，如果缓冲区非空则返回TRUE表示上次操作可以撤消，否则返回FALSE...
用C写一个简单病毒 [摘要]在分析病毒机理的基础上,用C语言写了一个小病毒作为实例,用TURBOC2.0实现. [Abstract] This paper introduce the charateristic of the computer virus,then show a simple example written by TURBOC2.0. ...
VB案例：快乐学英语 VB案例：快乐学英语一、软件概述1、开发缘由目前，英语学习软件很多，各有所长。但是每种软件都有局限性，根据学习英语的需要，广泛吸取各类软件的优点，尽量避免其局限性，把词汇、句子和文章三个层次结合起来，...
vb.net中线程怎么使用_VB.NET中的线程介绍 vb.net中线程怎么使用 To understand threading in VB.NET, it helps to understand some of the foundation... First up is that threading is something that happens because the operating system supports it. ...
VB操作EXCEL表的常用方法 VB是常用的应用软件开发工具之一，...但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下
【转】用C写一个简单病毒 [摘要]在分析病毒机理的基础上,用C语言写了一个小病毒作为实例,用TURBOC2.0实现. [Abstract] This paper introduce the charateristic of the computer virus,then show a simple example written by TURBOC2.0. ...
VB与flash交互 转载地址：http://hj20762003.blog.163.com/blog/static/80530446201002494558526/ ...其实这是一个很容易解决的问题，可惜这个问题属于两不管的境遇，VB的书没有，FLASH的书也没有，对于不懂FLAS
vb.net 串口列表_VB.NET中的有用的通用列表 vb.net 串口列表 Generics extend the power and flexibility of VB.NET in a lot of areas, but you get a bigger performance benefit and more programming options in the generic List object [List(Of T)] ...
VB函数大全 VB函数大全 Calendar 常数 可在代码中的任何地方用下列常数代替实际值： 常数 值 描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -----------------------------------...
VB.NET 创建打印机选择列表 你能进一步扩展这个简单代码创建一个用户控件，为windows窗口提供打印选项和重用控件 An application of this sample would be to provide a selection for the printer to be used for printing form within the...
vba程序的vb6封装_调试VBA和VB6应用程序 vba程序的vb6封装The debugging module can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture. 可以通过“调试”菜单项...
