| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]合并文件的名称显示到主菜单标题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158050) |
| -- 作者：hanlingli111999 -- 发布时间：2020/11/6 7:11:00 -- [求助]合并文件的名称显示到主菜单标题 老师好，我发布的项目设计了菜单，怎么能让主菜单标题名称主动显示为合并文件的名称（标题）， 这样能直观看到目前合并的是哪个外部项目，谢谢
|
| -- 作者：有点蓝 -- 发布时间：2020/11/6 9:02:00 -- 参考：http://www.foxtable.com/webhelp/topics/1439.htm ApplicationTitle = "xxx标题"
[此贴子已经被作者于2020/11/6 9:02:30编辑过]
|
| -- 作者：hanlingli111999 -- 发布时间：2020/11/6 9:19:00 -- 老师，把ApplicationTitle = "xxx标题"放在哪里呀，能自动关联合并的文件名称吗 |
| -- 作者：有点蓝 -- 发布时间：2020/11/6 9:21:00 -- 所谓的合并的文件指什么？在什么时候合并的，就在什么地方写代码 |
| -- 作者：hanlingli111999 -- 发布时间：2020/11/6 10:31:00 -- 合并的是我导出后重命名的文件，合并前我将工作表清空，然后合并前期导出的文件，自动提取文件名到主菜单标题， 现在还没搞定
|
| -- 作者：有点蓝 -- 发布时间：2020/11/6 10:37:00 -- 在什么时候合并的，就在什么地方写代码，合并完成后设置ApplicationTitle |
| -- 作者：hanlingli111999 -- 发布时间：2020/11/6 10:44:00 -- 哦，我放在合并代码后，无反应，另怎么自动关联合并文件的名称 |
| -- 作者：hanlingli111999 -- 发布时间：2020/11/6 10:48:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "蚂蚁算量文件|*.FoxEx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 DataTables("计算表").DataRows.Clear Dim mg As New Merger mg.SourcePath = dlg.FileName mg.SourceTableName = "计算表" mg.DataTableName = "计算表" mg.Merge() End If Applicati
|
| -- 作者：有点蓝 -- 发布时间：2020/11/6 10:56:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "蚂蚁算量文件|*.FoxEx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 DataTables("计算表").DataRows.Clear Dim mg As New Merger mg.SourcePath = dlg.FileName mg.SourceTableName = "计算表" mg.DataTableName = "计算表" mg.Merge() ApplicationTitle = FileSys.GetName(dlg.FileName) End If
|
| -- 作者：hanlingli111999 -- 发布时间：2020/11/6 11:07:00 -- 可以了，谢谢老师 |