各位好,目前我写程序用到了通过一个access应用程序 A ,调用另一个Access应用程序 B,并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了 dim B as Access.Application B.OpenAccessProject("C:\pro\B.adp") B.DoCmd.OpenForm "from1", acNormal, , "编号='" & Me.编号 & "' ", , acWindowNormal B.Forms("form1").SetFocus D
各位好,目前我写程序用到了通过一个access应用程序 A ,调用另一个Access应用程序 B,并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了,只是,Access应用程序B这个主窗体不能跑到任何Windows窗体的前面。每次都要手动鼠标点击。 我也使用了以下代码,却还是不行。 dim B as Access.Application B.OpenAccessProject("C:\pro\B.adp") B.DoCmd.OpenForm "from1", acNormal, ,
数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id) 代码如下: <% Sub ShowTree(parentID) dim s m=m+1 Dim rs Set rs = Server.CreateObject(“ADODB.RecordSet”) sql=”Select class_id,class_name FROM [WMS_Class] where class_father_id=”&Ci