机房收费问题总结（二）

1由一个MDI子窗体怎样调出另一个子窗体？

注册窗体                        

Private Sub cmdcheck_Click()

SetParent frmbalanceinfo.hWnd, frmmain.hWnd

   frmbalanceinfo.Show

End Sub

Private Sub Form_Deactivate()

    '当此窗体不是活动窗体时，窗体最小化

      If Me.WindowState <> 1 Then '（0正常，1最小化，2最大化）

       Me.WindowState = 1

      End If

End Sub

总结：setparent的作用是为一个物体指定一个新的父窗体（父窗体就像一个容器），也就是把一个物体转移到另一个物体上去。

通俗的说，就是给孩子换个爹。

2

这个问题是因为数据库中参数设置成了不允许为空，所以我们把它设置成可以为空就好了，详情见孙利楠的博客：http://blog.csdn.net/sun15732621550/article/details/47154103

3

错误的Set newxls = CreateObject("excel.Application ")

正确的Set newxls = CreateObject("excel.Application")

原因：在n的后面多加了一个空格。

关于这个错误还可能的原因是：没有注册excel控件

4

事实错误13 类型不匹配

原因：定义的变量的类型不匹配

5

自定义函数，实现中英文转换

 

6

执行查询语句

txtsql = "select * from student_info where " & changefields(Combo1.text) &Trim(Combo4.text) & "'" & Trim(Text1.text) & "'"

 Set mrc =executesql(txtsql, msgtext)

Select和”没有空格，Where和”之间有一个空格，否则会出现91错误

txtsql = txtsql & changetname(Combo7.text) & " " & changefields(Combo2.text) &Trim(Combo5.text) & "'" & Trim(Text2.text) &"'"

第一行和第二行组合查询时，两个引号之间有一个空格

7

解决：选择允许保存密码

8

问题：在做机房收费退卡，更新cancelcard_info时出现的错误。

原因：一般是输入的数据类型和对应的数据库字段类型不符，或者是字段的长度过长或含有不可识别的错误。

解决：转换成相对应的类型，调整字段的长度或大小。

9

在text里输入的文字显示多行，先要设置text的multiline为true，如果文字较多，可设置scrollbars=2-vertical。

10

问题：做基本数据设定的时候，点击修改出现不允许为NULL，于是，我修改了basicdata_info里的属性允许为NULl。但是修改完，接着调试程序又出现了这个窗体。

解决：结束程序，重新打开后正常运行了

原因：在程序调试过程中，改变了表的架构，使调试前后程序调用的表的架构不一样，所以出现这样的问题。重新运行程序，程序始终用的是同一架构的表，就没有表架构改变的