问题集结（三）

VB 前端之家
前端之家收集整理的这篇文章主要介绍了问题集结（三），前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

8.“当打开有模式窗体时不能打开无模式窗体”？@H_404_3@


@H_404_3@


@H_404_3@

Dim fLand As New frmLand@H_404_3@

fLand.Show vbModal@H_404_3@

vb@H_404_3@Modal Vb@H_404_3@中的一个常量，其值为1@H_404_3@，表示窗体Form1@H_404_3@以模式窗体形式显示，也可以写成Form1.Show 1@H_404_3@@H_404_3@@H_404_3@

（好处）@H_404_3@@H_404_3@

@H_404_3@

表示fLand@H_404_3@窗体是模式窗体，而在模式窗体存在时是不能显示无模式窗体，错误原因在于我在fLand@H_404_3@（即frmLand)@H_404_3@的代码中写入了：@H_404_3@@H_404_3@

frmMain.Show@H_404_3@@H_404_3@

本应在模式窗体关闭后才能加载无模式窗体@H_404_3@@H_404_3@

当然也可以将@H_404_3@frm@H_404_3@Main@H_404_3@窗体设置为模式窗体，但由于frmMain@H_404_3@窗体是MDI@H_404_3@窗体，而MDI@H_404_3@窗体是不能设置为模式窗体的，所以故而在模式窗体中不能写入改句代码@H_404_3@@H_404_3@

@H_404_3@

@H_404_3@

问题：@H_404_3@@H_404_3@

自己在做机房收费系统的时候，调试的时候没有遇到此类错误。但是又一次调试不想再登陆窗口启动，就把启动项设置为了别的窗体，结果再改到Sub main@H_404_3@启动，窗体就不能运行了。@H_404_3@@H_404_3@

错误的表现有两种：第一种是什么都不显示，不能加载主窗体，登录窗体也不见了，结果按结束@H_404_3@程序@H_404_3@的时候，整个程序就崩溃了，vb@H_404_3@直接停止运行。第二种，弹出错误窗体@H_404_3@@H_404_3@

@H_404_3@

@H_404_3@@H_404_3@

在这段@H_404_3@代码@H_404_3@中有一个fMainForm.Show,@H_404_3@但是好玩的是，我们在登陆窗体的代码中也写到了这一点，以至于导致窗体在将要加载的时候，就获得了加载两个主窗体的代码命令，在这个时候对于只能加载一个主窗体的程序，只能奔溃。@H_404_3@所以我们只需要在登陆窗体中把fMainForm.Show@H_404_3@删除或者注释掉，就能解决问题了。@H_404_3@@H_404_3@

而我的错误就是因为下面这段代码的原因：@H_404_3@

Private Sub Form_Load()@H_404_3@

Dim sBuffer As String@H_404_3@

Dim lSize As Long@H_404_3@


@H_404_3@

sBuffer= Space$(255)@H_404_3@

lSize = Len(sBuffer)@H_404_3@

Call GetUserName(sBuffer,lSize)@H_404_3@

@H_404_3@

If lSize > 0 Then@H_404_3@

txtUserName.Text = ""@H_404_3@

Else@H_404_3@

txtUserName.Text = vbNullString@H_404_3@

End If@H_404_3@

OK = False@H_404_3@

miCount = 0@H_404_3@

@H_404_3@Me.Top = frmMain.Height / 4@H_404_3@@H_404_3@

Me.Left = frmMain.Width / 4@H_404_3@@H_404_3@

End Sub@H_404_3@


@H_404_3@

红色区表示错误源头，因为在这里加载@H_404_3@frm@H_404_3@Main@H_404_3@窗体的高度和宽度，也就意味着你已经默许frmMain@H_404_3@是存在的，而模块中：@H_404_3@

Set fMainForm = New frmMain@H_404_3@

fMainForm.Show@H_404_3@

表示新建，意味这你要建立第二个@H_404_3@MDI@H_404_3@窗体，然后一个程序只能存在一个@H_404_3@MDI@H_404_3@窗体，这导致直接冲突，使程序不能运行@H_404_3@


9.数据表连接：@H_404_3@

@H_404_3@（1）如果这样连接

@H_404_3@txtsql = "select * from user_Info where user_ID = '" & txtUserName.Text &"'"@H_404_3@

@H_404_3@ Setmrc = Executesql(txtsql,MsgText)

@H_404_3@那么判断是否为时不能用字段即不能

@H_404_3@If Trim(mrc3.Fields(0))<> Trim(cmbUserID.Text) T@H_404_3@hen

@H_404_3@MsgBox "没有该操作员，请重新核对您的信息！",vbOKOnly + vbExclamation,"警告"

@H_404_3@可以这样使用

@H_404_3@If mrc.EOF@H_404_3@ Then

@H_404_3@MsgBox "没有这个用户，请重新输入用户名!",vbOKOnly +vbExclamation,"警告"

@H_404_3@因为txtsql的连接有了whereuser_ID = '" & txtUserName.Text & "'@H_404_3@而mrc就可以特指这个字段名，当然下面的字段需要“.@H_404_3@”出来


@H_404_3@（2）如果这样连接：

@H_404_3@txtsql = "select * from user_Info"

@H_404_3@ Setmrc = Executesql(txtsql,MsgText)

@H_404_3@那么判断不能使用

@H_404_3@If mrc.EOF@H_404_3@ Then

@H_404_3@MsgBox "没有这个用户，请重新输入用户名!","警告"

@H_404_3@这种方法判断整个表是否存在数据，而不单独判断某个字段是否存在某一值

@H_404_3@而这种方法就可以使用了：

@H_404_3@If Trim(mrc3.Fields(0))<> Trim(cmbUserID.Text) T@H_404_3@hen

@H_404_3@MsgBox "没有该操作员，请重新核对您的信息！","警告"



@H_404_3@

10.vb@H_404_3@打印方法：@H_404_3@@H_404_3@

Option Explicit@H_404_3@

Dimreport As grproLibCtl.GridppReport '@H_404_3@实例化报表@H_404_3@Private Sub cmdPreview_click()@H_404_3@

@H_404_3@

If Format(DTPStopdate,"yyyy-mm-dd") < Format(DTPStartdate,"yyyy-mm-dd") Then@H_404_3@

MsgBox "@H_404_3@日期范围不合法，请重新选择！@H_404_3@" & Chr(13) & Chr(10) & "@H_404_3@提示：日期查询范围从小到大！@H_404_3@","@H_404_3@警告@H_404_3@"@H_404_3@

Else@H_404_3@

GRDisplayViewer1.Refresh@H_404_3@

MsgBox "@H_404_3@账单刷新成功！@H_404_3@404_3@刷新@H_404_3@End If@H_404_3@

EndSub@H_404_3@

Private Sub cmdPrint_click()@H_404_3@

report.[Print] (True)@H_404_3@

End Sub@H_404_3@

Private Sub cmdRefresh_click()@H_404_3@

report.PrintPreview (True)@H_404_3@

End Sub@H_404_3@


Private Sub Form_Load()@H_404_3@

Dim txtsql As String@H_404_3@

Dim MsgText As String@H_404_3@

DimmrcReCharge As ADODB.Recordset@H_404_3@

txtsql = "select *from CheckWeek_info where date >= '"& Format(DTPStartdate,"yyyy-mm-dd") & "'" &"and date<'" & Format(DTPStopdate,"yyyy-mm-dd")& "'"@H_404_3@

Set report = New grproLibCtl.GridppReport '@H_404_3@实例化模板@H_404_3@report.LoadFromFile (App.Path & "\@H_404_3@周结账单@H_404_3@.grf") '@H_404_3@加载模板@H_404_3@report.DetailGrid.Recordset.ConnectionString = ConnectString '@H_404_3@连接数据源@H_404_3@report.DetailGrid.Recordset.Querysql = txtsql '@H_404_3@通过@H_404_3@select@H_404_3@查询创建记录集@H_404_3@report.ParameterByName("EndDate").Value = Format(DTPStopdate,"yyyy/mm/dd")@H_404_3@

report.ParameterByName("StartDate").Value =Format(DTPStartdate,sans-serif">GRDisplayViewer1.report = report'@H_404_3@将数据赋值给@H_404_3@GRD@H_404_3@的@H_404_3@report@H_404_3@

GRDisplayViewer1.Start'@H_404_3@在报表中显示出来@H_404_3@End Sub@H_404_3@


11.@H_404_3@当关闭窗口时询问是否退出@H_404_3@

@H_404_3@Private SubMDIForm_Unload(Cancel As Integer)@H_404_3@

If MsgBox("@H_404_3@确定要关闭吗？@H_404_3@404_3@机房收费系统@H_404_3@") = vbYes Then@H_404_3@

Cancel = False@H_404_3@

End @H_404_3@

Else@H_404_3@

Cancel=true@H_404_3@

End if @H_404_3@

@H_404_3@End Sub@H_404_3@


12.从两个表中将部分相同数据读取出来，思路是怎么样的？@H_404_3@

在循环中连接另一个表


13.多步OLEDB操作产生错误,如果可能请检查每一OLEDB的状态值,没有工作被完成@H_404_3@

可能是存入的值得长度比定义字段值得长度要长，即数据长度超过了字段长度


14.当导出的excel表不保存时容易出现错误。@H_404_3@

@H_404_3@可以设置错误导向，即出错了就执行某条语句，可以消除这个烦恼，另外还要注意保存地址的代码是否出现错误例： xlsBook.SaveAs FileName:=@H_404_3@App.Path& "Text.xls" '保存路径和文件名称 （丢掉红色区也容易出错！）


15.@H_404_3@@H_404_3@导出@H_404_3@excel@H_404_3@时常常出现这种情况：@H_404_3@

@H_404_3@@H_404_3@

@H_404_3@@H_404_3@


@H_404_3@通常程序操作Excel@H_404_3@是同步方法，并不会因为连续调用而繁忙。@H_404_3@@H_404_3@

@H_404_3@@H_404_3@通常是在@H_404_3@Excel@H_404_3@要响应多个操作者时出的问题，@H_404_3@

@H_404_3@@H_404_3@

@H_404_3@比如你用程序打开一个Excel@H_404_3@，等待；@H_404_3@随意双击一个单元进入编辑状态；@H_404_3@这时再用程序操作@H_404_3@Excel@H_404_3@就出现忙的对话框的。@H_404_3@

@H_404_3@

@H_404_3@要避免程序和人工同时操作Excel@H_404_3@。@H_404_3@（是因为@H_404_3@ADODB@H_404_3@组件正在工作，不允许用户介入。）@H_404_3@

@H_404_3@而我的错误原因在于将显示电子表格注释了导致@H_404_3@excel@H_404_3@表根本不能显示@H_404_3@

@H_404_3@

1@H_404_3@6@H_404_3@.msflexgrid@H_404_3@显示数据库内容不全@H_404_3@@H_404_3@

@H_404_3@

这是由于数据库的内容显示位置与@H_404_3@msflexgrid@H_404_3@的显示不符，或者是数据太长，会导致数据被隐藏，可以通过@H_404_3@trim@H_404_3@（）优化过来。@H_404_3@@H_404_3@

例：@H_404_3@TextMatrix(.Rows- 1,0) = Trim(mrc1.Fields(1))@H_404_3@显示出来@H_404_3@@H_404_3@


@H_404_3@

17.@H_404_3@单击msflexgrid的某一行或者单元格，则某一行或者单元格所在行突出（行颜色为蓝色）@H_404_3@@H_404_3@

首先，右键单击Msflexgrid，选择属性，打开属性页，然后在通用里面，把焦点区改成0 - None，选定模式改为1 - By Row

然后，在@H_404_3@Msflexgrid@H_404_3@的@H_404_3@click事件里添加代码：@H_404_3@

'@H_404_3@假设@H_404_3@Msflexgrid@H_404_3@的名字叫@H_404_3@msGrid@H_404_3@

msGrid.BackColorSel= vbBlue'@H_404_3@把选中行的@H_404_3@背景色改成蓝色@H_404_3@就行了@H_404_3@

其实没有下面这句代码也是可以，如果不可以，就加上，反正也没多少代码，就当积累代码量了


18.删除数据@H_404_3@

@H_404_3@

Private Sub Command1_Click()@H_404_3@

Dim txtsqlday As String,MsgTextday As String@H_404_3@

Dim mrcday As ADODB.Recordset@H_404_3@

txtsqlday = "delete @H_404_3@*@H_404_3@ fromCheckDay_info" 'where date='" & Format(Now,"yyyy-mm-dd") & "'" & "order by date"@H_404_3@

Set mrcday = Executesql(txtsqlday,MsgTextday)@H_404_3@

mrc@H_404_3@day.Update@H_404_3@mrcday.Close@H_404_3@

End Sub@H_404_3@

@H_404_3@

这样删除数据是要报错的，删除数据不需要数据更新和关闭@H_404_3@@H_404_3@

@H_404_3@

就算注释了@H_404_3@mrc@H_404_3@day.Update@H_404_3@、@H_404_3@mrcday.Close@H_404_3@这两句，虽然不会报错，但是删除是不成功的，因为删除整个表数据时是不需要加“@H_404_3@*@H_404_3@”的@H_404_3@@H_404_3@

@H_404_3@

@H_404_3@

如果是要删除某条数据记录，最好是将这条语句查询出来，这样利用@H_404_3@@H_404_3@

mrcday.Delete@H_404_3@

mrcday.Update@H_404_3@

mrcday.Close@H_404_3@

语句就可以了@H_404_3@@H_404_3@



@H_404_3@

Dim fLand As New frmLand@H_404_3@

fLand.Show vbModal@H_404_3@

@H_404_3@

（好处）@H_404_3@@H_404_3@

@H_404_3@

表示fLand@H_404_3@窗体是模式窗体，而在模式窗体存在时是不能显示无模式窗体，错误原因在于我在fLand@H_404_3@（即frmLand)@H_404_3@的代码中写入了：@H_404_3@@H_404_3@

@H_404_3@

本应在模式窗体关闭后才能加载无模式窗体@H_404_3@@H_404_3@

当然也可以将@H_404_3@@H_404_3@

@H_404_3@

@H_404_3@

问题：@H_404_3@@H_404_3@

@H_404_3@

@H_404_3@

@H_404_3@

@H_404_3@@H_404_3@

@H_404_3@

而我的错误就是因为下面这段代码的原因：@H_404_3@

Private Sub Form_Load()@H_404_3@

Dim sBuffer As String@H_404_3@

Dim lSize As Long@H_404_3@


@H_404_3@

sBuffer= Space$(255)@H_404_3@

lSize = Len(sBuffer)@H_404_3@

404_3@

@H_404_3@

If lSize > 0 Then@H_404_3@

txtUserName.Text = ""@H_404_3@

Else@H_404_3@

txtUserName.Text = vbNullString@H_404_3@

End If@H_404_3@

OK = False@H_404_3@

miCount = 0@H_404_3@

@H_404_3@

@H_404_3@

End Sub@H_404_3@


@H_404_3@

红色区表示错误源头，因为在这里加载@H_404_3@frm@H_404_3@Main@H_404_3@窗体的高度和宽度，也就意味着你已经默许frmMain@H_404_3@是存在的，而模块中：@H_404_3@

Set fMainForm = New frmMain@H_404_3@

fMainForm.Show@H_404_3@

表示新建，意味这你要建立第二个@H_404_3@MDI@H_404_3@窗体，这导致直接冲突，使程序不能运行@H_404_3@

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积