Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有1463人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
liumiao123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
[求助]  发帖心情 Post By:2018/6/29 10:07:00 [只看该作者]

设计了合并模式后,每次新增单独行·保存后打开就跑最上面前了·怎么回事呢·
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629100455.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
  发帖心情 Post By:2018/6/29 10:16:00 [只看该作者]

我用表里面不排序可以解决·就是到窗口他又默认排序了·
窗口里在哪个事件里写不排序代码呢

 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
  发帖心情 Post By: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写的

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/29 10:29:00 [只看该作者]

这个时候排序了

 

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

 

你试试删除


 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
  发帖心情 Post By:2018/6/29 10:37:00 [只看该作者]


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


 回到顶部
帅哥哟,离线,有人找我吗?
liumiao123
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
回复:(有点甜)这个时候排序了 .MergeSort...  发帖心情 Post By:2018/6/29 10:38:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629103438.png
图片点击可在新窗口打开查看
甜老师你看··好像不管用·14行打开
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180629103413.png
图片点击可在新窗口打开查看
又跑上面去了

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
回复:(有点甜)实例发上来测试。我测试没问题。&n...  发帖心情 Post By:2018/6/29 10:45:00 [只看该作者]

示类···················
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:合并.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
回复:(有点甜)With Tables("作业表")  &...  发帖心情 Post By:2018/6/29 10:53:00 [只看该作者]

谢谢甜老师··完美解决··图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部