[分享]把组合统计结果的fxDataSource(既是原生System.Data.DataTable)转json输出给前端，解决BS开发模式下此强大的多表联查工具只能用在C/S领域table组件的局限性 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

（在2021.4.29版本后，官方已经增加组合查询直转DataTable的方法，新版本用户不需要学习本帖子）

一、发现需求：

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

二、实现需求：

新建2个内部函数，即可完成这种类型的数据一键转Json

1.fxTable2Json

以下内容只有回复后才可以浏览

2.fxRow2JObject

以下内容只有回复后才可以浏览

三、使用效果：

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

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

四、有意思的扩展尝试：

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

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

五、进一步修饰结果：

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

基于这个统计效果，我们讲解各种修饰方法

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

5.1修改内容

For Each dr As Data.DataRow In dt1.Rows

    dr("型号") = "aaa"

Next

做二次运算注意的坑

1. 当统计出来的列是空值时，例如这里的第1行的dr("退货数量")是空值，它是不能直接参与预算的，因为它是原生的DBNull.Value，不支持任何运算。

2. 狐表平时的DataRow能运算，是因为官方帮我们做了一层封装，空值自动转0

For Each dr As Data.DataRow In dt1.Rows

//错误写法，会如下图报错，什么DBNull不支持运算符之类的

dr("退货总金额") = dr("退货数量") * dr("退货金额")

//正确写法

dr("退货总金额") = Val(dr("退货数量").ToString) * Val(dr("退货金额").ToString)

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

5.2.添加数据列

If dt1.Columns.Contains("新列") =False Then

    dt1.Columns.Add("新列",Gettype(String))

End If

可以添加的类型有以下

				（参考官方文档：https://docs.microsoft.com/zh-cn/dotnet/api/system.data.datacolumncollection.add?view=netframework-4.0
				）

				
							 名称
								  
							 .net类型  
							  对应狐表类型 
						
							 字符串（常用）
							  System.String 
							   String
						
							 日期时间（常用） 
							  System.DateTime
							   Date
						
							 逻辑值（常用）  
							  System.Boolean 
							   Boolean
						
							 微整数  
							  System.Byte 
							   Byte
						
							 短整数  
							  System.Int16 
							   Short
						
							 整数（常用）  
							  System.Int32  
							
							   Integer
						
							 长整数  
							  System.Int64
							   Long
						
							 单精度小数  
							  System.Single 
							   Single
						
							 双精度小数  
							  System.Double 
							   Double
						
							 高精度小数（常用）  
							  System.Decimal 
							   Decimal

5.3添加表达式列

注意可以配合公式使用，例如IIF()、IsNull()

If dt1.Columns.Contains("利润") =False Then

    dt1.Columns.Add("利润",Gettype(Decimal),"IsNull(销售_金额,0) -
				IsNull(进货_金额)")

End If

5.4添加行

注意一下，是先创建该表的1个行对象，然后再把对象添加到行集合，2步走，跟狐表平时的用法有不同！

Dim dr As Data.DataRow = dt.NewRow //第一步创建独立行对象

dr("型号") = "aaa"

dt.Rows.Add(dr) //第二步把行对象添加到行集合

Output.show(dt.Rows.Count) //得到结果是1

===============================================================

顺便总结以前分享过的帖子，方便大家学习

【迈宝伦工作室】承接各种中小企业或个人的Foxtable项目，单机版exe3000元以下，多人版exe3000元起，web多人版10000元起步

联系QQ：2385350359

[免费分享]正则表达式的使用，含匹配验证、提取过滤，常见正则表达式，复制即可用。过滤中文、大小写英文、数字、标点符号、换行符...

[免费开源]狐表cs集成代码高亮Highlight.js，代码着色，毫秒级响应。你还在用黑白的文本框阅读后端web代码吗？来试试这个

[免费开源]狐表集成MQTT解决方案，MQTT是目前大热物联网领域最广泛使用的软硬件通讯协议。如果连MQTT都没听过，别说自己是做物联网项目的，会被人笑的....

[免费开源]狐表bs集成websocket方法，dll来源于github 3.5k高分数的C# Websocket库稳定性和兼容性非常好。相当于web bs领域的OpenQQ功能

[找图标的进来看一眼,包你开眼界！]一个国外黑马级别的图标网站，精美程度真秒杀国内那些fontawesome，关键是支持搜索！找图标的真正痛点：只能用肉眼遍历，上万个图，老子看到何年鸟月啊！

[免费分享]把组合统计结果的fxDataSource转json输出给前端，解决BS开发模式下此强大的多表联查工具只能用在C/S领域table组件的局限性

[免费开源]狐表代码精灵管理器,自己改造狐表的官方代码编辑器，增加提示，自定义事件、方法、对象，非常简单，只需要2步！不用依赖任何第三方工具，永久跟着官方升级

免费开源的wangEditor富文本框解决方案,粘贴自动上传图片（截图上传神器啊！）,可嵌入视频，vue和jquery的BS框架都能用，不能用在cs哦！

[免费分享]sqlBulkCopy批量插入大量数据总结分享（批量导入、快速导入）

[免费分享]从周老师的书里挖个Json部分的总结分享给大家。狐表官方没有细说这一块，在前后端分离开发亟需扎实json利用

[免费开源]基于vue框架，用d2admin+elementui做的PC前端FoxWeb，uniapp做移动端，狐表做后端漂亮美观狐表变美终极方案前后端分离(20201114追加贸易订单管理案例体验)

[免费分享]简单无脑3步实现！狐表做服务器端，开机自动启动的解决方案。解决云服务器重启后不会自动启动狐表的问题[亲测可用]

[免费分享]狐表结合阿里云Oss对象存储案例小结，引用官方SDK dll，亲测能用

[免费分享]狐表CS端集成Echarts总结，亲测能用（顺便基础扫盲）

[此贴子已经被作者于2021/5/22 9:15:39编辑过]

主题：[分享]把组合统计结果的fxDataSource(既是原生System.Data.DataTable)转json输出给前端，解决BS开发模式下此强大的多表联查工具只能用在C/S领域table组件的局限性