字典中多字段字段计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字典中多字段字段计算

共有33人关注过本帖树形打印复制链接主题：字典中多字段字段计算

creastzh

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

等级：小狐帖子：347 积分：2562 威望：0 精华：0 注册：2023/1/11 7:15:00

字典中多字段字段计算 发帖心情

Post By：2025/5/11 15:07:00 [只看该作者]

字典中多字段字段计算

老师,我有一个字典的使用问题请教, 问题是这样的:

我有以Item为Key值的多个字段A,B,C,D需要求和, 因此写了程序:

dim d as new dictionary (of string, Integer())

for each dr as datarow in drs

if not d.contains(dr("Item")) then

d.add(dr("item"), dr("a"),dr("b"),dr("c"),dr("d")) '这里就报错了

else

d.remove(dr("Item"))

d.add(dr("Item"),d(dr("Item"))(0)+dr("a"),d(dr("Item"))(1)+dr("b"),d(dr("Item"))(2)+dr("c"),d(dr("Item"))(3)+dr("d")) '

end if

这里怎么都调试通不过, 有什么办法吗? 还有是否一定要先使用 d.remove(xx)方式重新赋值? 有没有简单一些的方式, 谢谢!

有点蓝

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

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

Post By：2025/5/11 19:28:00 [只看该作者]

d.add(dr("item"), {dr("a"),dr("b"),dr("c"),dr("d")})

或者

dim tmp() as Integer = {dr("a"),dr("b"),dr("c"),dr("d")}

d.add(dr("item"), tmp)

y2287958

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

等级：狐神帖子：4879 积分：35427 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2025/5/12 9:21:00 [只看该作者]

例如：

Dim d As New dictionary (Of String, Integer()) From {{"A", {11, 22, 33, 44}}}

Dim 数组() As Integer = {1, 2, 3, 4}

Dim 字典键名 As String = "A1"

d(字典键名) = ({数组(0) + d("A")(0), 数组(1) + d("A")(1), 数组(2) + d("A")(2), 数组(3) + d("A")(3)})

For Each k As String In d.Keys

Output.Show (String.join(",", d(k)))

主题：字典中多字段字段计算