扫二维码下载作业帮
1.75亿学生的选择
下载作业帮安装包
扫二维码下载作业帮
1.75亿学生的选择
我在写一篇西班牙语的小作文.哪位老师帮忙看一下哪里有错误.谢谢el ano pasado, mi primo Long
y yo viajamos a Amazonas en barca.Primero, prepare' algunas cosas: ropas, comidas, mapa, dinero... Quise conocer una cultura diferente a la nuestra y busque la naturaleza .Amazonas es un pais que hay historia grande y mucha naturaleza.Unos dias puesdes, Long y yo
viajar en avion a Brazil.A continuacion viajamos en barca. Fuimos a Brazil en avion.
Los paisajes estuvieron fantastico. Nosotros tomamos muchas fotos y caminamos ocho hohas y luego, dormiamos en refugios. La comida estuvo muy rica, muy deliciosa . me gusto' la gente poque era hospitalario, amable, sencillo. La manana, nosotros nadamos en el rio de Amazonas. Vaya! A parecio un cocodrillo. Fue horrible!
suerte, un indígena salvo mida. al final,nosotros volvimos la bacar. fue una viaje interesante!最好能帮忙修改一下.然后发给我!谢谢
zhangying012A2
扫二维码下载作业帮
1.75亿学生的选择
año 不是 ano, 如果不能打出来ñ, 请用nn代替,ano 与año的意思可真的不一样啊.Amazonas es un país...
país是国家的意思, 这里亚马逊是地区,可以用zona代替.hay una historia grande.
可以用tiene或者posee,比如,China posee la población más ... grande 放在historia之前,用短尾形式,gran.puesdes是 después吧.viajar,改成Viajamos. estuvieron, 用 fueron比较合适一点. hochas是什么意思? 应该是horas吧?refugio 是庇护所,防空洞的意思,用在这个地方感觉不是很合适.gente是阴性,后边形容词应该也用阴性形式.Apareció un cocodrillo.salvo mida. 是mi vida 么?volvimos a la barca/barcofue un viaje.只是修改了我知道的语法错误,句子结构啊什么的没有修改.
为您推荐：
其他类似问题
扫描下载二维码> 用户登录有有关问题，麻烦帮忙看一下哪里有有关问题，多谢
用户登录有有关问题，麻烦帮忙看一下哪里有有关问题，多谢
qwertyuiopq123 & &
发布时间： & &
浏览：2 & &
回复：1 & &
悬赏：0.0希赛币
用户登录有问题，麻烦帮忙看一下哪里有问题，谢谢？我的用户登录无论输入哪个用户名，程序只认第一条用户的密码，帮忙看看我代码错在哪里,麻烦了登陆界面代码Public OK As BooleanPrivate Sub cmdCancel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click() &
Static try_times As ByteDim strusername As StringDim strpassword As Stringstrusername = txtUserName.Textstrpassword = txtPassword.TextIf strusername = && ThenMsgBox &请输入用户名&, vbOKOnly + vbCritical, &警告&txtUserName.SetFocusExit SubEnd IfIf strpassword = && ThenMsgBox &请输入密码&, vbOKOnly + vbCritical, &警告&txtPassword.SetFocusExit SubEnd Ifstrusername = makestr(strusername)strpassword = makestr(strpassword)If myuser.existuser(strusername) = False ThenMsgBox &用户名不存在&, vbOKOnly + vbCritical, &警告&txtUserName = &&txtUserName.SetFocustry_times = try_times + 1If try_times &= 3 ThenMsgBox &对不起，您已经尝试三次进入系统，均不成功，系统将关闭!&, vbOKOnly + vbCritical, &警告&disconnectOK = FalseMe.HideExit SubElseExit SubEnd IfEnd Ifmyuser.getinfo (strusername)If myuser.strpwd && strpassword ThenMsgBox &密码错误&, vbOKOnly + vbCritical, &警告&txtPassword.Text = &&txtPassword.SetFocustry_times = try_times + 1If try_times = try_times &= 3 ThenMsgBox &对不起，您已经尝试三次进入系统，均不成功，系统将关闭!&, vbOKOnly + vbCritical, &警告&disconnectOK = FalseMe.HideExit SubElseExit SubEnd IfEnd Ifcuruser.iuserclass = myuser.iuserclasscuruser.strname = myuser.strnamecuruser.strpwd = myuser.strpwdOK = TrueMe.HideEnd Sub
探讨引用:VB codestrSQL=&select*from [用户登录] where name+'&+Trim(username)=&'&'加这个试试msgbox strSQLSet rs= queryext(strSQL)没用啊，不过谢谢你qwertyzxcvbn & &
23:30:01 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&to&超级绿豆,这段代码就是我上次写的那个，里面有一个很奇怪的问题，在调试期间按第一个按钮不会出问题，按第二个按钮就会出问题，但是在编译成可执行文件后按第一个按钮会出问题，按第二个按钮就不会出问题，里面有一个API我把参数改了一下，帮忙看看最终原因在哪里，谢谢了。
'&以下是模块里的内容&&&basEx.bas
Option&Explicit
Public&Const&EXCEPTION_MAXIMUM_PARAMETERS&=&15
Public&Type&EXCEPTION_RECORD
&&&&ExceptionCode&As&Long
&&&&ExceptionFlags&As&Long
&&&&pExceptionRecord&As&Long&&&&'&Pointer&to&an&EXCEPTION_RECORD&structure
&&&&ExceptionAddress&As&Long
&&&&NumberParameters&As&Long
&&&&ExceptionInformation(EXCEPTION_MAXIMUM_PARAMETERS)&As&Long
Public&Type&CONTEXT
&&&&FltF0&As&Double
&&&&FltF1&As&Double
&&&&FltF2&As&Double
&&&&FltF3&As&Double
&&&&FltF4&As&Double
&&&&FltF5&As&Double
&&&&FltF6&As&Double
&&&&FltF7&As&Double
&&&&FltF8&As&Double
&&&&FltF9&As&Double
&&&&FltF10&As&Double
&&&&FltF11&As&Double
&&&&FltF12&As&Double
&&&&FltF13&As&Double
&&&&FltF14&As&Double
&&&&FltF15&As&Double
&&&&FltF16&As&Double
&&&&FltF17&As&Double
&&&&FltF18&As&Double
&&&&FltF19&As&Double
&&&&FltF20&As&Double
&&&&FltF21&As&Double
&&&&FltF22&As&Double
&&&&FltF23&As&Double
&&&&FltF24&As&Double
&&&&FltF25&As&Double
&&&&FltF26&As&Double
&&&&FltF27&As&Double
&&&&FltF28&As&Double
&&&&FltF29&As&Double
&&&&FltF30&As&Double
&&&&FltF31&As&Double
&&&&IntV0&As&Double
&&&&IntT0&As&Double
&&&&IntT1&As&Double
&&&&IntT2&As&Double
&&&&IntT3&As&Double
&&&&IntT4&As&Double
&&&&IntT5&As&Double
&&&&IntT6&As&Double
&&&&IntT7&As&Double
&&&&IntS0&As&Double
&&&&IntS1&As&Double
&&&&IntS2&As&Double
&&&&IntS3&As&Double
&&&&IntS4&As&Double
&&&&IntS5&As&Double
&&&&IntFp&As&Double
&&&&IntA0&As&Double
&&&&IntA1&As&Double
&&&&IntA2&As&Double
&&&&IntA3&As&Double
&&&&IntA4&As&Double
&&&&IntA5&As&Double
&&&&IntT8&As&Double
&&&&IntT9&As&Double
&&&&IntT10&As&Double
&&&&IntT11&As&Double
&&&&IntRa&As&Double
&&&&IntT12&As&Double
&&&&IntAt&As&Double
&&&&IntGp&As&Double
&&&&IntSp&As&Double
&&&&IntZero&As&Double
&&&&Fpcr&As&Double
&&&&SoftFpcr&As&Double
&&&&Fir&As&Double
&&&&Psr&As&Long
&&&&ContextFlags&As&Long
&&&&Fill(4)&As&Long
Public&Type&EXCEPTION_POINTERS
&&&&pExceptionRecord&As&EXCEPTION_RECORD
&&&&ContextRecord&As&CONTEXT
Public&Const&EXCEPTION_EXECUTE_HANDLER&=&1
Public&Const&EXCEPTION_CONTINUE_EXECUTION&=&-1
Public&Const&EXCEPTION_CONTINUE_SEARCH&=&0
Public&Const&EXCEPTION_DEBUG_EVENT&=&1
Public&Const&EXCEPTION_ACCESS_VIOLATION&=&&HC0000005
Public&Declare&Function&SetUnhandledExceptionFilter&Lib&&kernel32&&(&_
&&&&ByVal&lpTopLevelExceptionFilter&As&Long)&As&Long
'Public&Declare&Function&UnhandledExceptionFilter&Lib&&kernel32&&(&_
&&&&ExceptionInfo&As&EXCEPTION_POINTERS)&As&Long
'&原来的这个声明我把参数改了，上面那个是原型
Public&Declare&Function&UnhandledExceptionFilter&Lib&&kernel32&&(&_
&&&&ExceptionInfo&As&Any)&As&Long
Public&hException&As&Long
Private&Declare&Sub&CopyMemory&Lib&&kernel32&&Alias&&RtlMoveMemory&&(Destination&As&Any,&Source&As&Any,&ByVal&Length&As&Long)
Public&Function&MyExceptionProc(ByVal&ExceptionInfo&As&Long)&As&Long
&&&&On&Error&Resume&Next
&&&&Static&s_SigCount&As&Long
&&&&Dim&dwExceptCode&As&Long
&&&&Dim&lResult&As&Long
&&&&Dim&lpExceptionInfo&As&EXCEPTION_POINTERS
&&&&CopyMemory&ByVal&lpExceptionInfo,&ExceptionInfo,&Len(lpExceptionInfo)
&&&&dwExceptCode&=&lpExceptionInfo.pExceptionRecord.ExceptionCode
&&&&If&dwExceptCode&=&EXCEPTION_ACCESS_VIOLATION&Then
&&&&&&&&Debug.Print&&Access&violation&caught&by&MyUnFilter&
&&&&&&&&s_SigCount&=&s_SigCount&+&1
&&&&&&&&If&s_SigCount&&&5&Then
&&&&&&&&&&&&lResult&=&EXCEPTION_CONTINUE_EXECUTION
&&&&&&&&Else
&&&&&&&&&&&&lResult&=&EXCEPTION_EXECUTE_HANDLER
&&&&&&&&End&If
&&&&&&&&lResult&=&EXCEPTION_CONTINUE_SEARCH
&&&&End&If
&&&&MyExceptionProc&=&lResult
End&Function
'&以下是窗体里的内容&frmMain.frm
Option&Explicit
Private&Declare&Sub&CopyMemory&Lib&&kernel32&&Alias&&RtlMoveMemory&&(&_
&&&&Destination&As&Any,&Source&As&Any,&ByVal&Length&As&Long)
Dim&lpExceptionInfo&As&EXCEPTION_POINTERS
Private&Sub&Command1_Click()
&&&&On&Error&GoTo&errFinish
&&&&UnhandledExceptionFilter&hException
&&&&Exit&Sub
errFinish:
&&&&MsgBox&Err.Description
Private&Sub&Command2_Click()
&&&&On&Error&GoTo&errFinish
&&&&CopyMemory&ByVal&1,&ByVal&2,&3
&&&&Exit&Sub
errFinish:
&&&&MsgBox&Err.Description
Private&Sub&Form_Load()
&&&&hException&=&SetUnhandledExceptionFilter(AddressOf&MyExceptionProc)
回复讨论(解决方案)
那偶就upup吧，就等?豆又??子?吧
绿豆今天没上网吗？我等了一个晚上了，还不来。
第二个晚上了，连看都没人看一眼，郁闷。&&;'(
谢谢。一定给分。
呵呵，搞得我好像是子类处理狂一样的。
UnhandledExceptionFilter的参数类型是EXCEPTION_POINTERS，也就是异常的信息结构，而不是函数地址。
SetUnhandledExceptionFilter返回的是前一次用SetUnhandledExceptionFilter设定的异常处理函数的地址。
所以，你在UnhandledExceptionFilter参数里使用SetUnhandledExceptionFilter返回的函数地址肯定是错了。
EXCEPTION_EXECUTE_HANDLER的意思是，告诉系统从UnhandledExceptionFilter函数返回，然后执行相应的异常处理程序，再然后基本上就是程序结束了。
EXCEPTION_CONTINUE_EXECUTION意思是，同样从UnhandledExceptionFilter函数返回，然后重新从发生异常的地方开始执行。或者可以通过修改作为参数传入的lpEXCEPTION_POINTERS结构的内容来修改重新开始地址。
EXCEPTION_CONTINUE_SEARCH意思是，继续执行UnhandledExceptionFilter，也就是遵照函数SetErrorMode设定的标志（例如，不显示系统默认的应用程序出错提示框等），或者调用应用程序错误提示框。
再说说你的异常处理函数，你出错首先是因为你没有捕捉到内存存取异常(&HC00005)这个错误，你之所以没有捕捉到这个错误是因为你的EXCEPTION_POINTERS结构写错了。记得我说过VB自带的Win32&API文件有很多翻译错误的地方，在这里就是一个很典型的例子。
MSDN里EXCEPTION_POINTERS的声明是这样的：
typedef&struct&_EXCEPTION_POINTERS&{
&&PEXCEPTION_RECORD&ExceptionR&
&&PCONTEXT&ContextR&
}&EXCEPTION_POINTERS,&*PEXCEPTION_POINTERS;&
也就是说它里面的ExceptionRecord和ContextRecord应该分别是*EXCEPTION_RECORD和*CONTEXT类型，说白了就是两个结构的地址指针，而不是像API文件中写那样是两个结构。
所以，在VB里应该声明为
Public&Type&EXCEPTION_POINTERS
&&&&pExceptionRecord&As&Long
&&&&ContextRecord&As&Long
Public&Type&EXCEPTION_POINTERS
&&&&pExceptionRecord&As&EXCEPTION_RECORD
&&&&ContextRecord&As&CONTEXT
，所以我写的那段异常处理里面用copymemory获得pExceptionRecord结构的内容。
错误既然捕捉不到，那自然就执行到lResult&=&EXCEPTION_CONTINUE_SEARCH这一句了，这句啥意思呢？看看上面就知道了，所以你就觉得自己莫名其妙错了。
还有啥问题吗？
先谢谢一遍，等我研究一下后再来继续谢谢，呵呵。查看: 435|回复: 9
我下面的代码大家帮忙看看那里错了，提示错误424（谢谢大师们的指导，问题解决）
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 darkowl 于
11:27 编辑
Private Sub CommandButton2_Click()
Dim wkb As Workbook
Dim d01 As String, path As String
d01 = ActiveSheet.Range(&B2&)
path = ThisWorkbook.path & &\导出每日渲染数据2\& & d01 & &.xlsx&
'Application.DisplayAlerts = False
Set wkb = Workbooks.Open(path)
'MsgBox ActiveWorkbook.Name
wkb.Worksheets(&任务列表&).Range(&A:Q&).Select
wkb.Worksheets(&任务列表&).Range(&A:Q&).Copy ThisWorkbooks.Sheets(&te01&).Range(&A:Q&)
'Application.DisplayAlerts = True
我修改后的确认ok的代码是：Private Sub CommandButton2_Click()
& & Dim wkb As Workbook
& & Dim d01 As String, path As String, z1 As String
& & d01 = ActiveSheet.Range(&B2&)
& & z1 = ThisWorkbook.Name
& & path = ThisWorkbook.path & &\导出每日渲染数据2& & d01 & &.xlsx&
& & Set wkb = Workbooks.Open(path)
& & wkb.Worksheets(&任务列表&).Range(&A:Q&).Copy Workbooks(z1).Sheets(&te01&).Range(&A:Q&)
& & wkb.Close
&&
End Sub
复制代码
阅读权限95
在线时间 小时
wkb.Worksheets(&任务列表&).Range(&A:Q&).Copy ThisWorkbooks.Sheets(&te01&).Range(&A1&)
阅读权限100
在线时间 小时
建议上传表格附件来说明问题。
没有附件不能测试代码。
阅读权限20
在线时间 小时
建议上传表格附件来说明问题。
没有附件不能测试代码。
已上传附件，请指引一下，我刚刚学习VBA
阅读权限95
在线时间 小时
Private Sub CommandButton2_Click()
& & Dim wkb As Workbook
& & Dim d01 As String, path As String
& &
& & With ActiveWorkbook
& && &&&d01 = Range(&B2&)
& && &&&path = .path & &\导出每日渲染数据2& & d01 & &.xlsx&
& &
& && &&&'Application.DisplayAlerts = False
& && &&&Set wkb = Workbooks.Open(path)
& && &&&'MsgBox ActiveWorkbook.Name
& && &&&wkb.Worksheets(&任务列表&).Range(&A:Q&).Copy .Sheets(&te01&).Range(&A:Q&)
& &
& & 'Application.DisplayAlerts = True
& & End With
End Sub
复制代码
阅读权限20
在线时间 小时
太感谢了！
我好好学学，只是能告诉我哪里错了吗
阅读权限95
在线时间 小时
本帖最后由 microyip 于
09:26 编辑
1、open之后，活动工作簿就变成了刚open的啦，所以后面的thisworkbook实际就是刚刚open的，而这个this里没有te01，所以出错
2、open之后，可能打开的工作簿的当前Sheet不是&任务列表&，故此可能这个表的Range(&A:Q&).Select就出错了
PS：我没看你的附件，纯粹根据逻辑来改写的
阅读权限20
在线时间 小时
1、open之后，活动工作簿就变成了刚open的啦，所以后面的thisworkbook实际就是刚刚open的，而这个this里没 ...
1、我看教程，说是 thisworkbook 指的是 代码所在的工作簿，不是活动工作簿啊
2、Range(&A:Q&).Select 结果是正确的，就是copy 的代码有问题
阅读权限95
在线时间 小时
1、我看教程，说是 thisworkbook 指的是 代码所在的工作簿，不是活动工作簿啊
2、Range(&A:Q&).Select&&...
噢，多谢你告诉我这个重要信息了，我一直以为thisworkbook是跟activeworkbook是一样的，但我平时不会用这个参数的
阅读权限20
在线时间 小时
噢，多谢你告诉我这个重要信息了，我一直以为thisworkbook是跟activeworkbook是一样的，但我平时不会用这 ...
可能是我理解错教程的内容了。
这个确实是 Thisworkbook 用的问题
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师