字典中多字段字段计算
老师,我有一个字典的使用问题请教, 问题是这样的: 我有以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
next
这里怎么都调试通不过, 有什么办法吗? 还有是否一定要先使用 d.remove(xx)方式重新赋值? 有没有简单一些的方式, 谢谢!
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)
例如：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)))
Next