Foxtable(狐表)用户栏目专家坐堂 → 交叉统计问题


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

主题:交叉统计问题

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/31 21:49:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.zip


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/1 10:24:00 [显示全部帖子]

Dim dtb As New DataTableBuilder("临时表1")
dtb.AddDef("姓名", GetType(String), 16)
For Each nm As String In DataTables("表A").GetValues("型号")
Dim xh As String = nm.SubString(1).trim("0")
dtb.AddDef("型号" & xh & "_型号", GetType(String), 16)
dtb.AddDef("型号" & xh & "_数量", GetType(String), 16)
next
dtb.Build()

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/1 10:58:00 [显示全部帖子]

表格数据是怎么样的?

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/1 11:30:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目62.zip


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/1 15:26:00 [显示全部帖子]

没看懂。手工填写一下最终结果发上来看看

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/1 16:05:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:交叉统计项目11.zip


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/1 17:30:00 [显示全部帖子]

遍历所有列设置即可;http://www.foxtable.com/webhelp/topics/0561.htm

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/3 16:56:00 [显示全部帖子]

For Each cl As Col In Tables("临时表").Cols

   cl.TextAlign = TextAlignEnum.Center

Next

Tables("临时表").Cols("姓名").TextAlign = TextAlignEnum.Left

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/15 11:40:00 [显示全部帖子]

sd是一个变量,是一个日期控件的对象,不是字符串

Dim d1 As Date = sd.value

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/10 13:53:00 [显示全部帖子]

注意DrawRectangle的坐标是针对RenderGraphics的,不是针对整个个页面的

g.Graphics.DrawRectangle(n, 10, 20, 212, 82)
g.Style.Borders.All = New prt.LineDef("1mm", Color.CornflowerBlue)‘加上这句代码测试就明白了,蓝色边框是RenderGraphics的大小,DrawRectangle的坐标10指红框离蓝框的左边距’


 回到顶部
总数 13 1 2 下一页