合并模式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并模式

共有13336人关注过本帖树形打印复制链接主题：合并模式

wqc360

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：790 积分：5677 威望：0 精华：0 注册：2009/4/17 18:42:00

合并模式

Post By：2009/12/3 11:08:00 [只看该作者]

请问怎样在窗口关联表显示合并模式

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/12/3 11:09:00 [只看该作者]

用代码。

Table不管是在那里，代码都是一样的，不同的只是名称

wqc360

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：790 积分：5677 威望：0 精华：0 注册：2009/4/17 18:42:00

Post By：2009/12/3 11:16:00 [只看该作者]

怎么用代码，谢谢

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/12/3 11:23:00 [只看该作者]

给你个示例,将表中的订单改成窗口表的名称,列名改成你表中的列名称试试

示例

下面的代码合并订单表中的客户、雇员两列，因为是标准合并模式，请在执行之前，将客户、雇员两列移到最左边。
完整的合并模式设置代码：

With Tables("订单")
    .Redraw = False '暂停绘制表
    .MergeMode = MergeModeEnum.Standard '标准合并模式
    .MergeCols.Clear() '清除原来的合并列
    .MergeCols.Add("客户") '加入要合并的列
    .MergeCols.Add("雇员")
    .MergeSort = "客户,雇员" '设置合并模式下的排序方式
    .AllowMerge = True '启用合并模式
    .Redraw = True '重新绘制表
End With

wqc360

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：790 积分：5677 威望：0 精华：0 注册：2009/4/17 18:42:00

Post By：2009/12/3 20:39:00 [只看该作者]

我有产品目录表主窗口，窗口中有两个关联表，类型=Normal，作为副本=False，一下合并模式代码我放在窗口AfterLoad事件中，项目LoadUserSetting事件中，指令打开窗口按钮Click事件中，都失败，请看看应该怎么做，谢谢
With Tables("产品目录.产品工序")
    .Redraw = False
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("图号")
    .MergeCols.Add("名称")
    .MergeSort = "图号,名称"
    .AllowMerge = True
    .Redraw = True
End With
With Tables("产品目录.产品工序.产品工艺")
    .Redraw = False
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("图号")
    .MergeCols.Add("名称")
    .MergeSort = "图号,名称"
    .AllowMerge = True
    .Redraw = True
End With