Access开发平台自制怀旧版导航界面 [查看原文]

最新评论3人参与评论

	2019/4/15 22:46:20lmqlt：已解决自制导航与左侧菜单匹配问题，已重新上传并更新第一次传的附件。解决思路如下：1、复制Main.mdb中表SysLocalNavigationMenus，复制的新表名为TMP_SysLocalMenus；2、在SysFrmMain的Public Function LoadNavTree() As String里加上一段程序，让生成左侧菜单的同时，追加菜单至步骤1的临时表中，确保自制导航和左侧菜单匹配。3、启动自制导航窗体frmxtdh时，直接调用TMP_SysLocalMenus数据。 DoCmd.SetWarnings False DoCmd.RunSQL "DELETE TMP_SysLocalMenus.* FROM TMP_SysLocalMenus;" Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("TMP_SysLocalMenus") rstTmp.AddNew rstTmp!ID = rst!ID rstTmp![MenuText] = rst![MenuText] rstTmp!MenuTextLocal = Trim(Nz(rst!MenuTextLocal)) rstTmp!Command = Nz(rst!Command) rstTmp!ForeColor = Nz(rst!ForeColor) rstTmp!BackColor = Nz(rst!BackColor) rstTmp!FontBold = rst!FontBold rstTmp!Expanded = rst!Expanded rstTmp!Enabled = rst!Enabled rstTmp!Image = Nz(rst!Image) rstTmp!Allow = True rstTmp.Update rstTmp.Close

	2019/4/15 9:15:16麥田： 2019/4/15 8:08:32xiaowuo：我也是因为平台树型界面觉得无法接受才没用它，期待平台能增加选择控制界面是最好的了。 = 请下载第一代按钮式菜单的平台

	2019/4/15 8:08:32xiaowuo：我也是因为平台树型界面觉得无法接受才没用它，期待平台能增加选择控制界面是最好的了。