AR16 数组脚本问题

inroad · inroad

inroad 发表于 2023-10-11 09:22
您好，我的deom可以看下

$.['wei_hai_shi_bie'].name现在这个里面数据都有，您需要在危害类别中删除其中一个对象。这样就和我帖子上的需求一模一样了

inroad · inroad

Eden.Sun 发表于 2023-10-11 11:26
我们分析了您的文件，并不是您的数据重复显示了三次，是您的数据源中有三条数据，您的函数调用了三次，每次 ...

那怎么样才能显示一次，且显示我想要的那种格式呢？脚本需要重新写是吗？如何修改呢

Felix.Li · Felix.Li

抱歉，这种暂时确实没有办法。
我们表格的机制就是，明细行每次取的话取一条数据。这个不是改脚本能实现的，本身也拿不到全部数据
也就是表格每次只能拿一个数据，但是文本框一次只能拿第一条数据，暂时确实没有办法。
我们给开发提一个需求，看怎么实现吧

inroad · inroad

Felix.Li 发表于 2023-10-11 18:37
抱歉，这种暂时确实没有办法。
我们表格的机制就是，明细行每次取的话取一条数据。这个不是改脚本能实现的 ...

问问可不可以这样，我把数组取出来，但是是文本，如何用脚本转成数组，转成数组后我自己做循环

inroad · inroad

inroad 发表于 2023-10-12 10:31
问问可不可以这样，我把数组取出来，但是是文本，如何用脚本转成数组，转成数组后我自己做循环

Function change(a As String) As String
Dim jsonStr As String = a
' 去掉 JSON 字符串的特殊字符
Dim options As New JsonSerializerOptions()
options.PropertyNameCaseInsensitive = True ' 以不区分大小写的方式解析属性名
Dim objects As List(Of YourObjectType) = JsonSerializer.Deserialize(Of List(Of YourObjectType))(jsonStr, options)
change = objects(0).name
End Function这个错误在哪里呢，我很纳闷。希望升级下后台脚本可以使用第三方库

Eden.Sun · Eden.Sun

inroad 发表于 2023-10-12 10:36
Function change(a As String) As String
Dim jsonStr As String = a
' 去掉 JSON 字符串的特殊字符 ...

ar是脱离程序框架的，没办法像写代码那样引入其他的三方库环境，因此不能使用是第三方库，只能使用，系统环境中的函数资源。

Felix.Li · Felix.Li

您好，报表字段获取整个数组的方法使用toArray()即可。

例如id字段获取全部，然后自定义函数如下：

=code.GetFirstItem(ToArray([id]))

函数写法:

Function GetFirstItem(s As System.Collections.ArrayList) As String
Return String.Join(",", s.ToArray())
End Function

复制代码

即可获取全部

		自动登录	找回密码
密码			立即注册

[已处理] AR16 数组脚本问题

本帖子中包含更多资源

Wyn高级认证

Wyn认证