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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分页统计

共有3652人关注过本帖树形打印复制链接主题：分页统计

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

分页统计

Post By：2021/7/1 15:14:00 [显示全部帖子]

此主题相关图片如下：1.png

合并模式后，怎么样能以合并后的列为行呢？比如上面的图是合并后的表，我想做分页，比如我想显示一行，但是实际想达到的效果是美国这个合并列的4个行

Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = 1 '每页15行

想达到的效果

此主题相关图片如下：2.png

因为这个合并后的效果，有些是4行，有些是2行，所以通过每页行数实在是太难控制了

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/1 18:09:00 [显示全部帖子]

此主题相关图片如下：45.png

我是想达到这个效果

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/1 18:11:00 [显示全部帖子]

如果按照你说的方式，我点击下一款的话，就没有办法了

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/1 23:51:00 [显示全部帖子]

原数据是

此主题相关图片如下：1.png

合并后的表

此主题相关图片如下：2.png

想达到的效果

此主题相关图片如下：3.png

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/1 23:52:00 [显示全部帖子]

想达到的效果

此主题相关图片如下：4.png

此主题相关图片如下：5.png

此主题相关图片如下：6.png

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/2 0:02:00 [显示全部帖子]

同一个商品代码的为一个款

就是想着遇到有商品代码合并的行，也是直接显示出来，包含同一个商品代码的所有行

[此贴子已经被作者于2021/7/2 0:01:51编辑过]

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/2 9:13:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:查询代码.txt

我不会修改，麻烦一下蓝老师帮我修改一下，谢谢，现在是两个页面，我想一个页面通过OID来达到我的查询结果，谢谢

With wb.AddInputGroup("form1","ipg1","商品图片")

wb.AddForm("","form2","test.htm")

With .AddUploader("up1","",True)

.AllowAdd = False '关闭文件上传功能

For Each dr As DataRow In dt.datarows

For Each s As String In dr.lines("图片")

s = "/E:/QYWX/Project/RemoteFiles/" & s

AddImage(s,s)

'msgbox(s)

End With

还有，我根据这个表添加图片，如果按照上面的代码的话，因为是多行就会报错，这个该怎么改呢？

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/2 18:19:00 [显示全部帖子]

For Each dr As DataRow In dt.datarows

For Each s As String In dr.lines("图片")

With wb.AddInputGroup("form1","ipg1","商品图片")

With .AddUploader("up1","缩略图",True)

.AllowAdd = False '关闭文件上传功能

.AddImage(s,s)'

End With

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2021.5.29.1

错误所在事件：自定义函数,服装补货查询

详细错误信息：

调用的目标发生了异常。

已添加了具有相同键的项。

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/2 19:38:00 [显示全部帖子]

我在HttpRequest里面添加了

Dim fl As String = "/E:/QYWX/Project/RemoteFiles/" & e.path

Dim path As String = fl.replace("/E:/QYWX/Project/RemoteFiles/" , "")

If FileSys.FileExists(path) Then

e.WriteFile(path)

End If

所以才用了下面红色部分

For Each dr As DataRow In dt.datarows

For Each s As String In dr.lines("图片")

With wb.AddInputGroup("form1","ipg1","商品图片")

s = "/E:/QYWX/Project/RemoteFiles/" & s

With .AddUploader("up1","图片",True)

.AllowAdd = False '关闭文件上传功能

.AddImage(s,s)'

End With

BG小白

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

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/2 19:56:00 [显示全部帖子]

For Each dr As DataRow In dt.datarows

For Each s As String In dr.lines("图片")

With wb.AddInputGroup("form1","ipg1","商品图片")

With .AddUploader("up1","缩略图",True)

.AllowAdd = False '关闭文件上传功能

.AddImage(s,s)'

End With

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2021.5.29.1

错误所在事件：自定义函数,服装补货查询

详细错误信息：

调用的目标发生了异常。

已添加了具有相同键的项。

而且不知道为什么，如果找不到图片，表内容也不显示了

With wb.AddTable("","Table1")

.MergeCols = 3 '合并左边2列

.Highlight = -1 '关闭高亮显示功能

.RowHead = 1

.CreateFromDataTable(dt)

End With

此主题相关图片如下：43124.png

正常情况下应该显示

此主题相关图片如下：4314124241.png

[此贴子已经被作者于2021/7/2 20:46:45编辑过]

下一主题 >> << 上一主题

总数 46 1 2 3 4 5 下一页

主题：分页统计