小编T. *_*P. 的帖子

使用 For each Statement 遍历二维数组 - 每行/不是每列

首先,我不想使用嵌套的 For 循环,因为我读到这些会随着数据量的增加而变慢(n 可以高达 10k)。所以,现在,我有一个数组arrData(n,2),而 whilen是可变的,我想每行遍历这个数组,使用 for each 语句。所以这是我的代码。为简化起见,我插入了一个 (2,2) 数组:

Sub test()

    Dim arrData(2, 2) As Variant

    arrData(0, 0) = 0
    arrData(0, 1) = 0
    arrData(0, 2) = 0
    arrData(1, 0) = 1
    arrData(1, 1) = 1
    arrData(1, 2) = 1
    arrData(2, 0) = 2
    arrData(2, 1) = 2
    arrData(2, 2) = 2

    For Each Element In arrData
        MsgBox Element
    Next Element

End Sub
Run Code Online (Sandbox Code Playgroud)

我得到 012012012,但我想得到 000111222。

arrays each vba for-loop multidimensional-array

2
推荐指数
1
解决办法
3819
查看次数

是否有相当于C#的| VB.Net中的运算符?

在VB.Net中是否有相当于C#的管道运算符(|)?

我从这里有一些代码如何为我的应用程序为所有用户创建的文件授予完全权限?

它在C#中,我想将其转换为VB.Net.我到目前为止(VS说有一个错误:| InheritanceFlags.ContainerInherit):

Sub ZugriffsrechteEinstellen()

    Dim dInfo As New DirectoryInfo(strPfadSpracheINI)
    Dim dSecurity As New DirectorySecurity

    dSecurity = dInfo.GetAccessControl()
    dSecurity.AddAccessRule(New FileSystemAccessRule(New SecurityIdentifier(WellKnownSidType.WorldSid, Nothing), FileSystemRights.FullControl, InheritanceFlags.ObjectInherit | InheritanceFlags.ContainerInherit, PropagationFlags.NoPropagateInherit, AccessControlType.Allow))

    dInfo.SetAccessControl(dSecurity)

End Sub
Run Code Online (Sandbox Code Playgroud)

c# vb.net pipe equivalent operator-keyword

0
推荐指数
1
解决办法
194
查看次数