收录日期:2019/03/19 04:27:05 时间:2016/05/18 03:13:53 标签:数据库(包含打印,安装,报表)
Option Explicit
Private g_DB As Database

Private Sub MDIForm_Load()
   Set g_DB = OpenDatabase("e:\城市企业评价\zbgl.mdb", False, False)
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
   g_DB.Close
   Set g_DB = Nothing
End Sub
Private Sub mnuEIfactorEdit_Click()
   Dim frmNew As New frmView
   frmNew.showdata objDB:=g_DB, _
      frmCaller:=Me, _
      sTableName:="zbgl", _
      sItemSingular:="指标管理", _
      sItemPlural:="指标管理", _
      sViewQuery:="qryList", _
      sIDField:="zbbm"

End Sub
这里的“objDB:=g_DB”是什么意思?
就是付值了,看这个例子:
4.1如何使用命名变元

option explicit

private sub formcolor(red,green,blue)
  backcolor = rgb(red * 256,green*256,blue*256)
end sub

private sub form_click()
  formcolor blue:=0,green:=0.5,red:=1
end sub
可以改变传递参数的顺序
那为什么不直接用“=”这个符号?“=”就代表赋值的呀?

请问我为什么得不到正确的float值 关于mfc的文件操作,求大神指导 客户端上传文件给WEB服务器时,服务器没有接收 客户端也会一直上传,服务端也会一直下载?? 送给P哥一句话 星期一顶着黑眼圈上班 java 以太网通信 Qt加载openCV库 delphi 新建unit之后,自动添加unit注解 求一个C#的网页数据抓取源代码 .net怎么写接收gmail邮件(不是发送),是不是还要生成gmail证书啊,求高手啊 MySQL查询表 【下载】绑定手机没有送积分,请管理员看看谢谢 PHP的生命周期 opcode缓存 什么是php的词典扫描? U盘自动挂载 数字证书原理 vb怎样调用c++ 各位有没写的好的SQL池类自我推荐下? 请教easyui的1.2.X,全选按钮怎样取消? 拜帖,哪位大神帮忙解决下,刚入门什么都不懂 新老朋友,都来瞧瞧! 关于两个路由器同时使用的问题 美好的一天 2013-03-25 怎么用DIV做那种标签切换的页面啊 中途结束一个已触发的事件 skin++后无法进入OnCtlColor 触发器 判断当前插入的行数 SQL Server可以搭建Hadoop集群么? 求改图片啊,改个字 求助 php5.3.11+sqlserver2005 为什么数据库突然变慢了?