以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]分享一个狐表的表与JSON格式互转的细节问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146029)

--  作者:chen37280600
--  发布时间:2020/2/14 16:15:00
--  [分享]分享一个狐表的表与JSON格式互转的细节问题

狐表的DataRow→json

假如 dim r as row =tables("aa").addnew
1常见的4种类型转换
  1. 字符串类型:Jo("xx") = CStr(r("xx"))强转
  2. Boolean类型:Jo("xx") =CBool(r("xx"))强转
  3. 数字类型:Jo("xx") =Val(r("xx"))强转
  4. 日期类型:Jo("xx") =CStr(r("xx"))强转,推荐判断空就改为字符串

2全部转换函数参考
CStr() 转换为String字符串
CDate() 转换为Date类型
CBool() 转换为Boolean类型
Val() 转换为一个合适的数字类型
CInt() 转换为整数(Integer)
CShort() 换为短整数(Short)
Cbyte() 转换为微整数(Byte)
CLng() 转换为长整数(Long)
CSng() 转换为单精度小数(Single)
CDbl() 转换为双精度小数(Double)
CDec() 转换为高精度小数(Decimal)

json→狐表的DataRow

假如 dim jo as JObject = 前端传回来的玩意
  1. 字符串类型:必须r("xx") = jo("xx").ToString
  2. Boolean类型:可以r("xx") = jo("xx").ToString,若要另外用途,请强转CBool(jo("xx"))
  3. 数字类型:可以r("xx") = jo("xx").ToString,若要另外用途,请强转Val(jo("xx"))
  4. 日期类型:可以r("xx") = jo("xx").ToString,若要另外用途,请强转CDate(jo("xx"))

[此贴子已经被作者于2021/12/7 11:48:37编辑过]

--  作者:有点蓝
--  发布时间:2020/2/14 16:45:00
--  
多谢分享。
--  作者:fntfgz
--  发布时间:2020/10/16 22:30:00
--  
多谢分享
--  作者:hrsoft
--  发布时间:2020/10/17 11:00:00
--  
感谢分享
--  作者:playmal
--  发布时间:2021/11/26 7:36:00
--  
看看