以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并模式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5247)
--  作者：wqc360
--  发布时间：2009/12/3 11:08:00
--  合并模式
请问怎样在窗口关联表显示合并模式
--  作者：狐狸爸爸
--  发布时间：2009/12/3 11:09:00
--  

用代码。

Table不管是在那里，代码都是一样的，不同的只是名称
--  作者：wqc360
--  发布时间：2009/12/3 11:16:00
--  
怎么用代码，谢谢
--  作者：yangming
--  发布时间：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
--  发布时间：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
--  作者：wqc360
--  发布时间：2009/12/4 15:27:00
--  
请帮忙看一下，谢谢
--  作者：yangming
--  发布时间：2009/12/4 16:37:00
--  
以下是引用wqc360在2009-12-4 15:27:00的发言：
请帮忙看一下，谢谢

上传相关文件才好看啊
--  作者：wqc360
--  发布时间：2009/12/4 17:09:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:佶龙机加二车间管理系统.rar
--  作者：wqc360
--  发布时间：2009/12/4 17:09:00
--  
密码060425
--  作者：yangming
--  发布时间：2009/12/4 17:29:00
--  
楼主是开发版做的吧,我打不开啊,我是商业版