收录日期:2018/06/20 12:03:56 时间: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
可以改变传递参数的顺序
那为什么不直接用“=”这个符号?“=”就代表赋值的呀?