以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121099)

--  作者:liumiao123
--  发布时间:2018/6/29 10:07:00
--  [求助]
设计了合并模式后,每次新增单独行·保存后打开就跑最上面前了·怎么回事呢·
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629100455.png
图片点击可在新窗口打开查看

--  作者:liumiao123
--  发布时间:2018/6/29 10:16:00
--  
我用表里面不排序可以解决·就是到窗口他又默认排序了·
窗口里在哪个事件里写不排序代码呢

--  作者:liumiao123
--  发布时间:2018/6/29 10:20:00
--  
Tables("作业表").Sort = ""

With Tables("作业表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("产品名称")
    .MergeCols.Add("产品图号")
    .MergeCols.Add("产品编号")
    .MergeCols.Add("材质")
    .MergeSort = "产品名称,产品图号,产品编号,材质"
    .AllowMerge = True
End With

好像没有用  ··
我在窗口···············AfterLoad写的

--  作者:有点甜
--  发布时间:2018/6/29 10:29:00
--  

这个时候排序了

 

.MergeSort = "产品名称,产品图号,产品编号,材质"

 

你试试删除


--  作者:liumiao123
--  发布时间:2018/6/29 10:37:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629103438.png
图片点击可在新窗口打开查看
```田老师·没有用呢···
第14行打开后又跑上面去了··
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629103413.png
图片点击可在新窗口打开查看


--  作者:liumiao123
--  发布时间:2018/6/29 10:38:00
--  回复:(有点甜)这个时候排序了 .MergeSort...

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629103438.png
图片点击可在新窗口打开查看
甜老师你看··好像不管用·14行打开
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629103413.png
图片点击可在新窗口打开查看
又跑上面去了
--  作者:有点甜
--  发布时间:2018/6/29 10:42:00
--  

实例发上来测试。我测试没问题。

 

合并代码删除红色

 

With Tables("作业表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("产品名称")
    .MergeCols.Add("产品图号")
    .MergeCols.Add("产品编号")
    .MergeCols.Add("材质")
    \'.MergeSort = "产品名称,产品图号,产品编号,材质"
    .AllowMerge = True
End With

--  作者:liumiao123
--  发布时间:2018/6/29 10:45:00
--  回复:(有点甜)实例发上来测试。我测试没问题。&n...
示类···················
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:合并.table


--  作者:有点甜
--  发布时间:2018/6/29 10:51:00
--  
With Tables("作业表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("产品名称")
    .MergeCols.Add("产品图号")
    .MergeCols.Add("产品编号")
    .MergeCols.Add("材质")
    .MergeSort = ""
    .AllowMerge = True
End With

--  作者:liumiao123
--  发布时间:2018/6/29 10:53:00
--  回复:(有点甜)With Tables("作业表")  &...
谢谢甜老师··完美解决··图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看