Private Sub Command8_Click()
Dim A As Object
Dim B As Object
Dim C As Object
Dim D As Object
Set A = CreateObject("excel.application")
A.Visible = True
Set B = A.Workbooks.Open("D:\2010\DB\一览表\各盟市测站一览表\数据库辽河测站一览表.xls")
Set C = B.worksheets(1)
C.Activate
Set D =
Private Sub Command8_Click()
Dim A As Object
Dim B As Object
Dim C As Object
Dim D As Object
Set A = CreateObject("excel.application")
A.Visible = True
Set B = A.Workbooks.Open("D:\2010\DB\一览表\各盟市测站一览表\数据库辽河测站一览表.xls")
Set C = B.worksheets(1)
C.Activate
Set D = B.worksheets(2)
D.Activate
Dim i, j, w, k As Integer
i = 8
j = 7
For i = 8 To 87
For j = 7 To 119
If C.cells(j, 6) & D.cells(i, 6) Then
For w = 320 To i Step -1
D.cells(w + 1, 6) = ""
D.cells(w + 1, 6) = D.cells(w, 6)
D.cells(i, 6) = ""
D.cells(i, 6) = C.cells(j, 6) 这一行被黄色警告
Next j
Next i
End Sub
执行LZ的代码,只见LZ指明行报错
这一行被黄色警告前未加注释 '
D.cells(i, 6) = C.cells(j, 6) '这一行被黄色警告
执行代码未见错误,也不知道那些代码执行最终是想达啥目的,仅是打开了某个*.XLS文件,落在SHEET2上.
多定义两个变量，一个叫MobilNum, 一个叫CertNum
然后用LzRequest函数分别获取其值
然后改一下下面这句select语句
很多视频制作软件可以，简单的如:movie maker
void main( )
int n = 0;
int i = 0;
int j = 0;
while( tr...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区Dim rs As ADB.Recordset
Dim SQL As String
Dim msg As String
Dim index As Integer
Dim flag As String '判断是新增加的记录还是修改记录
Private Sub Form_Load()
Dim strItem As String
'初始化下拉框
CboSelect.AddItem "教师"
CboSelect.AddItem "管理人员"
CboSelect.ListIndex = 0
Dim rs As ADB.Recordset
Dim SQL As String
Dim msg As String
Dim index As Integer
Dim flag As String '判断是新增加的记录还是修改记录
Private Sub Form_Load()
Dim strItem As String
'初始化下拉框
CboSelect.AddItem "教师"
CboSelect.AddItem "管理人员"
CboSelect.ListIndex = 0
Call LoadData '装载用户数据
End Sub
Private Sub LoadData()
Dim strItem As String
'得到用户信息
SQL = " select * from 用户信息表 order by userID"
Set rs = Nothing
Set rs = SelectSQL(SQL, msg)
ListUser.Clear
If rs.RecordCount & 0 Then
Do While (Not rs.EOF) And (Not rs.BOF)
strItem = Trim(rs.Fields(0)) & ":" & Trim(rs.Fields(1))
ListUser.AddItem (strItem)
rs.MoveNext
rs.MoveFirst
ListUser.ListIndex = 0
MsgBox ("目前没有用户信息！")
'控件可用性
CmdAdd.Enabled = True: CmdModify.Enabled = False: CmdDelete.Enabled = False
CmdCancel.Enabled = False: CmdSave.Enabled = False
Call FixData '在文本框中显示详细信息
'控件可用性
CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True
CmdCancel.Enabled = False: CmdSave.Enabled = False
End Sub
Private Sub FixData()
Dim UserID As String
'显示具体信息
If ListUser.ListCount & 0 Then
UserID = Left(Trim(ListUser.Text), 6)
rs.MoveFirst
rs.Find ("userID='" & UserID & "'")
txtUserID.Text = Trim(rs.Fields("userID"))
txtName.Text = Trim(rs.Fields("userName"))
txtPassword.Text = Trim(rs.Fields("password"))
CboSelect.Text = Trim(rs.Fields("userType"))
txtPhone.Text = Trim(rs.Fields("telphone"))
txtEmail.Text = Trim(rs.Fields("email"))
'控件可用性
CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True
CmdSave.Enabled = False: CmdCancel.Enabled = False
End Sub
txtUserID.Text = Trim(rs.Fields("userID"))变黄，显示错误3021，BOF或EOF中有一个是“真”或者当前的记录已被删除，所需的操作要求一个当前的记录。
全部答案（共1个回答）
1.[B] 2.[B] 3.[B] 4.[B] 5.[B] 6.[B]
我想你的女友也不是你所想的穿的那么暴露吧!一般穿低腰裤也是很正常,女孩当然想追求完美,...
患上牙周病的人，除了牙龈红肿、有口臭外，严重的还会有牙龈萎缩、牙缝增阔、牙齿松动移位，甚至整颗牙齿会松脱。这样不但有损牙周病患者的仪容，大大削弱了他们的自信心，...
Dim sum as Single, a as Single, b as Single, tmp as Single
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区|||||||||||||||||||||
您现在的位置： &
> VB程序错误处理方法小结
VB程序错误处理方法小结
09:01作者：晓华出处：yesky责任编辑：方舟
　　三、错误处理程序的类型　　将一个项目当作已经编译的程序运行时，未捕获的错误会造成致命的后果，它们会导致程序终止运行。必须尽一切努力防止发生这种情况。若要防止代码中的错误中断代码的运行（并终止已编译程序的运行），我们可以创建错误处理程序以捕获代码中的错误。当捕获一个错误后，VB并不显示出错消息，也不终止代码的运行。相反，我们编写的专门用来处理错误的代码则开始运行。每个过程都应该拥有错误处理程序，而不管它包含多大的代码量。最好在代码中放入一个On Error语句，作为代码的第一行，放在紧靠过程标题的后面和变量说明的前面。如果一个过程的错误能够以这种方式出现，就应该在过程的开头用突出的注释来明确说明这一行为特性。　　若要捕获错误，基本上可以使用下面两种方法：　　 当出现错误时，使用On Error GoTo，转移到别的代码上去执行。　　 使用On Error Resume Next语句，不中断代码的执行，也不转移到别的代码上去执行，而是忽略该错误。　　可以在一个过程中创建多个错误处理程序，但每次只能激活一个错误处理程序。VB将最新的On Error语句中指明的处理程序视为已经激活的错误处理程序。切换一个过程中的不同位置上的错误处理程序，往往是很有好处的，理解各个错误处理程序如何运行，是利用这一功能的关键。
　　1、使用On Error Resume Next以忽略错误　　对错误进行处理的最简单（和最危险）的方法是使用On Error Resume Next语句。On Error Resume Next语句规定，代码中的错误将完全被忽略，存在错误的代码行被跳过，然后继续执行下一个语句。例如，下面这个过程存在一个运行期错误（即一个被0除的错误），它由On Error Resume Next错误处理程序来处理：
Private Sub cmdGenerateError_Click()　'* Purpose: Test On Error Resume Next　On Error Resume Next　Debug.Print 10 / 0End Sub
　　Debug.print语句产生了一个被0除的错误。但是，由于存在一个已经激活的错误处理程序（由On Error Resume Next指定），因此该错误被忽略，并在下一个语句（即End Sub语句）上恢复执行。错误被忽略并不意味着我们无法知道错误已经发生。当一个语句产生了一个错误之后，尽管没有显示出错消息，Err对象仍然包含关于该错误的信息。
　　2、使用On Error GoTo转移执行的代码流　　除非我们捕获了一个意料之外的错误，比如上面代码中的那种错误，否则忽略代码中的错误是非常危险的，并且是一种不得已时采用的办法。当一个过程中出现了意料之外的错误时，该过程就会产生许多问题。如果忽略该错误，就会对用户产生严重的影响，比如数据没有保存，或者保存不正确。许多情况下，当出现代码错误时，必须执行某些操作，将代码的执行转移到On Error GoTo语句中指定的错误处理程序。该语句的句法如下：
On Error GoTo line
　　请注意，line必须是指与On Error GoTo语句相同的过程中的一个语句。　　在这个句法中， line有两个意思。首先它是指出现错误时要转移到的这个代码行号。不过这个行号并不是过程中的代码行的物理位置。请看下面这个代码例子：
Private Sub TestErrorHandler()　'* Purpose : Test the On Error GoTo statement by deliberately　'* generating a run-timeerror.　On Error GoTo 4　Debug.Print "Line 2"　Debug.Print 10 / 0　Debug.Print "Line 4"　Debug.Print "Line 5"End Sub
　　我们可能认为，被0除的错误会导致代码在输出文本line 4这个语句上继续执行，因为这是代码的第四个语句（不是计数注释）。不仅这种情况不会发生，而且该代码实际上会导致产生一个编译错误，并且代码根本不会执行。
　　3、用调试方式激活错误处理程序和取消其激活状态　　虽然我们不希望已编译程序中的错误不被捕获，但是，当程序在IDE中运行时如果出现错误，让VB中止代码的执行，这样做常常是非常不利的。当代码的执行中止时，会看到一条相关的出错消息，并告诉我们出现错误的代码行，这对于代码的调试来说是大有帮助的。VB为处理代码设计时遇到的错误而使用的方法取决于VB IDE的Error Trapping（捕获错误）属性。Error Trapping属性是VB环境的一个属性，不是某个项目的属性。我们操作的每个项目，即使在关闭和重新启动VB之后，均使用该设置值。若要为VB的当前会话设置Error Trapping选项，而不必为将来的会话修改默认值，请使用代码窗口的快捷菜单上的Toggle命令（见图2）。图2 从任何代码窗口的快捷菜单中选择Toggle命令　　可以将Error Trapping属性设置为下列值中的一个：　　 Break On All Errors（在所有错误上中止）。　　 Break In Class Module（在类模块中中止）。　　 Break On Unhandled Errors（在未处理的错误上中止）。　　Break On All Errors实际上可使所有错误处理程序均取消激活状态。当出现一个错误时，无论是否激活了处理程序，代码均在出错的语句上进入中止方式，同时VB显示一条出错消息。这使我们能够在IDE进行测试时处理意料不到的错误。共2页。
相关搜索：
相关文章及软件
关注此文读者还看过
文章排行本周本月最近更新
12345678910
12345678910
12345678910
12345678910
Copyright (C) 1999-, All Rights Reserved 版权所有 天极网络商务联系、网站内容、合作建议：010--
渝ICP证B2-号