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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于权限控制代码

共有4567人关注过本帖树形打印复制链接主题：关于权限控制代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/28 13:39:00 [只看该作者]

没看懂，截图表格数据说明一下

[此贴子已经被作者于2023/6/28 13:39:18编辑过]

jhxb8821

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

加好友

发短信

等级：三尾狐帖子：648 积分：4728 威望：0 精华：0 注册：2016/4/15 22:24:00

代码问题

Post By：2023/6/28 13:57:00 [只看该作者]

请老师修改一

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目230628.foxdb

下两段代码，谢谢

有点蓝

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

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/28 14:05:00 [只看该作者]

这种没有办法使用交叉统计处理，参考这种用法：http://www.foxtable.com/webhelp/topics/2394.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/28 14:14:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目230628.zip

jhxb8821

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

加好友

发短信

等级：三尾狐帖子：648 积分：4728 威望：0 精华：0 注册：2016/4/15 22:24:00

代码问题

Post By：2023/6/28 14:59:00 [只看该作者]

非常感谢老师指导。麻烦蓝老师再帮我看看效果2的代码，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目230627.foxdb

有点蓝

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

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/28 15:01:00 [只看该作者]

请参考14楼效果1先自己做一个，什么地方有问题再改。

jhxb8821

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

加好友

发短信

等级：三尾狐帖子：648 积分：4728 威望：0 精华：0 注册：2016/4/15 22:24:00

代码问题

Post By：2023/6/28 15:25:00 [只看该作者]

Dim dtb As New DataTableBuilder("统计1")

dtb.AddDef("乡镇", GetType(String), 16)

dtb.AddDef("村名", GetType(String), 16)

Dim prds As List(Of String()) = DataTables("表A").GetValues("检查年度|检查结果")

For Each prd As String() In prds

dtb.AddDef(prd(0) & "_" & prd(1), GetType(String), 16)

dtb.Build()

For Each cus As String() In DataTables("表A").GetValues("乡镇|村名")

Dim dr As DataRow = DataTables("统计1").AddNew()

dr("乡镇") = cus(0)

dr("村名") = cus(1)

For Each prd As String() In prds

dr(prd(0) & "_" & prd(1)) = DataTables("表A").Compute("max(检查时间)", "乡镇 = '" & cus(0) & "' And [村名] = '" & cus(1) & "' and 检查年度='" & prd(0) & "' and 检查结果='" & prd(1) & "'")

MainTable = Tables("统计1")

蓝老师，我照做了，单元格（202301，202302，202304）这样的代码就不会了，麻烦蓝老师帮忙

有点蓝

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

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/28 15:30:00 [只看该作者]

Compute改为使用GetComboListString：http://www.foxtable.com/webhelp/topics/1435.htm

jhxb8821

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

加好友

发短信

等级：三尾狐帖子：648 积分：4728 威望：0 精华：0 注册：2016/4/15 22:24:00

代码问题

Post By：2023/6/28 16:28:00 [只看该作者]

Dim dtb As New DataTableBuilder("统计表4")

dtb.AddDef("乡镇", GetType(String), 16)

Dim prds As List(Of String()) = DataTables("表A").GetValues("检查年度|检查时间|检查结果")

For Each prd As String() In prds

'dtb.AddDef(prd(0) & "_" & prd(2), GetType(String), 16)

dtb.AddDef(prd(0) & "_" & prd(1) & "_" & prd(2), GetType(String), 16)

dtb.Build()

For Each cus As String() In DataTables("表A").GetValues("乡镇")

Dim dr As DataRow = DataTables("统计表4").AddNew()

dr("乡镇") = cus(0)

For Each prd As String() In prds

'dr(prd(0) & "_" & prd(2)) = DataTables("表A").GetComboListString("村名", "乡镇 = '" & cus(0) & "' and 检查年度='" & prd(0) & "' and 检查时间='" & prd(1) & "'and 检查结果='" & prd(2) & "'")

dr(prd(0) & "_" & prd(1) & "_" & prd(2)) = DataTables("表A").GetComboListString("村名", "乡镇 = '" & cus(0) & "' and 检查年度='" & prd(0) & "' and 检查时间='" & prd(1) & "'and 检查结果='" & prd(2) & "'")

MainTable = Tables("统计表4")'打开生成的统计表

蓝老师，帮忙再看看上面代码哪里出错误了？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/28 16:46:00 [只看该作者]

要什么效果？

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

总数 67 上一页 1 2 3 4 5 6 7 下一页

主题：关于权限控制代码