[求助]如何可以获取到以下参数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Forms("登录窗口").Open()

If _UserName = "" Then

Syscmd.Project.Exit()

Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错

End If

Tables("BOM").Cols("子阶代码").DropForm = "物料表查找下拉"

Tables("生产车间欠料表").Cols("物料代码").DropForm = "物料表查找下拉"

Tables("常用物料总表").Cols("子阶代码").DropForm = "物料表查找下拉"

Tables("对应表").Cols("物料代码").DropForm = "物料表查找下拉"

If _userRoles Like "*采购*" Then

RibbonTabs("采购管理").Visible = True

End If

If _userRoles Like "*系统管理员*" Then

RibbonTabs("系统").Visible = True

End If

Tables("Users").Visible = False

MessageBox.Show(ProjectFile)

Dim myFileVersionInfo As System.Diagnostics.FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(ProjectFile)

MessageBox.Show(myFileVersionInfo.FileVersion())

BaseMainform.Text = "生产管理系统 V3.5_" & myFileVersionInfo.FileVersion()

End If

为什么这样得到的ProjectFile 不是Exe的，而是Foxex格式的。

主题：[求助]如何可以获取到以下参数