一个添加数据的问题
我要的结果如下图


可是我写出来的结果是这样的：

cI = UBound(T(0).Cut)
For c = 0 To cI
If SafeArrayGetDim(T(0).Cut(c).value) <> 0 Then
vI = UBound(T(0).Cut(c).value)
For v = 0 To vI
myAccess = "select * from Table"
mySet(0).Open myAccess, conn(0), adOpenDynamic, adLockOptimistic
mySet(0).AddNew
mySet(0).Fields(c + 1) = T(0).Cut(c).value(v)
mySet(0).Update
Next v
End If
Next c








望各位指点，谢谢！
[解决办法]
cI = UBound(T(0).Cut)
For c = 0 To cI
If SafeArrayGetDim(T(0).Cut(c).value) <> 0 Then
vI = UBound(T(0).Cut(c).value)
myAccess = "select * from Table"
mySet(0).Open myAccess, conn(0), adOpenDynamic, adLockOptimistic
mySet(0).AddNew
For v = 0 To vI

mySet(0).Fields(c + 1) = T(0).Cut(c).value(v)

Next v
mySet(0).Update
End If
Next c

大概是这样，没有仔细看，要把那个提取到循环外面一层。