草庐IT

在VBA中动态创建收集/数组

程序员大本营 2024-04-20 原文

我为此而苦苦挣扎，我正在使用VBA进行一些访问中的工作，我需要动态创建n个集合/列表/记录阵列，然后将它们添加到我的字典中。

//Some pseudo codeDim dict as objectSet dict = CreateObject("Scripting.Dictionary")for record in myRecordSetObject    if dict.exists(keyfromrecord)         dict(keyfromrecord) = array.add(record)    else         newarray = [record]         dict.add key:="keyfromrecord" item:=array

如果无法完成，我可能只需执行一串主键并根据需要生长，然后调用字符串拆分。

编辑

因此，我有记录，我需要根据一些可能共享或可能不会共享的常见领域将它们分为子组。如果两个记录在这些选择字段中具有相同的信息，则它们在子组中。子组可能具有1-n记录。

而不是获取所有可能的组合并过滤我的查询，而是要创建一个字典，该字典将其定义为从这些字段生成的字符串。如果存在键，则该子组的成员，如果不是，则是一个新的子组。

该值将是一系列记录。

之后，我要浏览我的字典并使用这些记录做事。

Field1     Field2     Field3    Field4Fruit      Skinned    Sliced    BakedApples     True       True      TrueBananas    True       True      TrueOranges    True       False     False

使用此示例上面的子组是当field2,3和4具有相同的值时。 （苹果，香蕉），另一个是（橙色）

我想要一个带有关键的字典

dictionary{           "True-True-True": [Apples, Bananas],           "True-False-True": [Oranges]}

看答案

不确定这是否是您所追求的，但这在每个字典键中都放置了每个组合的记录集。

根据您的桌子，它给出了

FALSE-FALSE-FALSE-,FALSE-FALSE-TRUE-,FALSE-TRUE-FALSE-,FALSE-TRUE-TRUE-,TRUE-FALSE-FALSE-,TRUE-FALSE-TRUE-,TRUE-TRUE-FALSE-,TRUE-TRUE-TRUE-

在哪里 ? dicOutput("TRUE-TRUE-TRUE-").recordcount 返回 2 记录和 GroupTable("0fruits")("TRUE-TRUE-TRUE-").recordcount 相同 2

希望这可以帮助

Function GroupTable(strTableName As String) As Scripting.DictionaryDim strKey As StringDim diccols As New Scripting.DictionaryDim dicOutput As Scripting.DictionaryDim dicTruth As Scripting.DictionaryDim rst As ADODB.RecordsetDim rcols As ADODB.RecordsetSet rcols = New ADODB.RecordsetSet rcols = CurrentProject.Connection.OpenSchema(adSchemaColumns, Array(Empty, Empty, strTableName, Empty))While Not rcols.EOF    If rcols.Fields("COLUMN_NAME").Value <> "Fruit" Then        diccols.Add CStr(diccols.Count), rcols.Fields("COLUMN_NAME").Value    End If    rcols.MoveNextWendSet dicTruth = maketruthtable(2 ^ diccols.Count - 1, diccols.Count)Set dicOutput = New Scripting.DictionaryFor l = 0 To dicTruth.Count - 1    strSQL = "select [fruit] from [" & strTableName & "] where " & Join(diccols.Items(), "&") & "='" & dicTruth.Items()(l) & "'"    Set rst = New ADODB.Recordset    rst.Open strSQL, CurrentProject.Connection, adOpenStatic    dicOutput.Add Replace(Replace(dicTruth.Items()(l), "-1", "TRUE-"), "0", "FALSE-"), rstNext lSet GroupTable = dicOutputEnd FunctionFunction maketruthtable(intMax As Integer, intOptions As Integer) As Scripting.DictionaryDim d As New Scripting.DictionaryDim j As IntegerFor j = 0 To intMax    d.Add CStr(j), Replace(Right(DecToBin(j), intOptions), "1", "-1")Next jSet maketruthtable = dEnd FunctionPublic Function DecToBin(ByVal lngDec As Long) As String Const MAXLEN = 5 Dim strBin As String Dim n As Long If lngDec < 0 Then    strBin = "1" Else    strBin = "0" End If For n = MAXLEN To 0 Step -1 If lngDec And (2 ^ n) Then    strBin = strBin & "1" Else    strBin = strBin & "0" End If Next DecToBin = strBin End Function

编辑

另一个解决方案是使用SQL进行此操作，因此，如果您的表格仅在1行中为true，而另一个则为false，则称为tbllogicottions，例如这样

然后，您可以在名为0Fruits的表上使用以下SQL

使用以下SQL

select LOGICTABLE.*,Data.Fruit FROM (select ((x1.a) & (x2.a) & (x3.a)) as Logic from tblLogicOptions  as x1, tblLogicOptions  as x2, tblLogicOptions  as x3) AS LOGICTABLELEFT JOIN(SELECT F1.Fruit, [skinned] & [sliced] & [baked] AS LogicCompareFROM 0fruits as F1) AS DATA ON LOGICTABLE.Logic=DATA.LogicCompare

给出结果

我认为，循环循环以构建字典，甚至使用结果记录集，我认为会更容易。

VBA在codeTRUEFALSE

有关在VBA中动态创建收集/数组的更多相关文章

  1. ruby - 如何在 Ruby 中顺序创建 PI - 2

    出于纯粹的兴趣，我很好奇如何按顺序创建PI，而不是在过程结果之后生成数字，而是让数字在过程本身生成时显示。如果是这种情况，那么数字可以自行产生，我可以对以前看到的数字实现垃圾收集，从而创建一个无限系列。结果只是在Pi系列之后每秒生成一个数字。这是我通过互联网筛选的结果:这是流行的计算机友好算法，类机器算法:defarccot(x,unity)xpow=unity/xn=1sign=1sum=0loopdoterm=xpow/nbreakifterm==0sum+=sign*(xpow/n)xpow/=x*xn+=2sign=-signendsumenddefcalc_pi(digits

  2. python - 如何使用 Ruby 或 Python 创建一系列高音调和低音调的蜂鸣声？ - 2

    关闭。这个问题是opinion-based.它目前不接受答案。想要改进这个问题？更新问题，以便editingthispost可以用事实和引用来回答它.关闭4年前。Improvethisquestion我想在固定时间创建一系列低音和高音调的哔哔声。例如:在150毫秒时发出高音调的蜂鸣声在151毫秒时发出低音调的蜂鸣声200毫秒时发出低音调的蜂鸣声250毫秒的高音调蜂鸣声有没有办法在Ruby或Python中做到这一点？我真的不在乎输出编码是什么(.wav、.mp3、.ogg等等)，但我确实想创建一个输出文件。

  3. ruby-on-rails - 在 Ruby 中循环遍历多个数组 - 2

    我有多个ActiveRecord子类Item的实例数组，我需要根据最早的事件循环打印。在这种情况下，我需要打印付款和维护日期，如下所示:ItemAmaintenancerequiredin5daysItemBpaymentrequiredin6daysItemApaymentrequiredin7daysItemBmaintenancerequiredin8days我目前有两个查询，用于查找maintenance和payment项目(非排他性查询)，并输出如下内容:paymentrequiredin...maintenancerequiredin...有什么方法可以改善上述(丑陋的)代

  4. ruby - 多次弹出/移动 ruby​​ 数组 - 2

    我的代码目前看起来像这样numbers=[1,2,3,4,5]defpop_threepop=[]3.times{pop有没有办法在一行中完成pop_three方法中的内容？我基本上想做类似numbers.slice(0,3)的事情，但要删除切片中的数组项。嗯...嗯，我想我刚刚意识到我可以试试slice! 最佳答案 是numbers.pop(3)或者numbers.shift(3)如果你想要另一边。 关于ruby-多次弹出/移动ruby​​数组，我们在StackOverflow上找到一

  5. ruby - 使用 Vim Rails，您可以创建一个新的迁移文件并一次性打开它吗？ - 2

    使用带有Rails插件的vim，您可以创建一个迁移文件，然后一次性打开该文件吗？textmate也可以这样吗？ 最佳答案 你可以使用rails.vim然后做类似的事情::Rgeneratemigratonadd_foo_to_bar插件将打开迁移生成的文件，这正是您想要的。我不能代表textmate。 关于ruby-使用VimRails，您可以创建一个新的迁移文件并一次性打开它吗？，我们在StackOverflow上找到一个类似的问题： https://sta

  6. ruby - 将数组的内容转换为 int - 2

    我需要读入一个包含数字列表的文件。此代码读取文件并将其放入二维数组中。现在我需要获取数组中所有数字的平均值，但我需要将数组的内容更改为int。有什么想法可以将to_i方法放在哪里吗？ClassTerraindefinitializefile_name@input=IO.readlines(file_name)#readinfile@size=@input[0].to_i@land=[@size]x=1whilex 最佳答案 只需将数组映射为整数:@land边注如果你想得到一条线的平均值，你可以这样做:values=@input[x]

  7. ruby-on-rails - 无法使用 Rails 3.2 创建插件？ - 2

    我对最新版本的Rails有疑问。我创建了一个新应用程序(railsnewMyProject)，但我没有脚本/生成，只有脚本/rails，当我输入ruby./script/railsgeneratepluginmy_plugin"Couldnotfindgeneratorplugin.".你知道如何生成插件模板吗？没有这个命令可以创建插件吗？PS:我正在使用Rails3.2.1和ruby​​1.8.7[universal-darwin11.0] 最佳答案 随着Rails3.2.0的发布，插件生成器已经被移除。查看变更日志here.现在

  8. ruby - 通过 erb 模板输出 ruby​​ 数组 - 2

    我正在使用puppet为ruby​​程序提供一组常量。我需要提供一组主机名，我的程序将对其进行迭代。在我之前使用的bash脚本中，我只是将它作为一个puppet变量hosts=>"host1,host2"我将其提供给bash脚本作为HOSTS=显然这对ruby​​不太适用——我需要它的格式hosts=["host1","host2"]自从phosts和putsmy_array.inspect提供输出["host1","host2"]我希望使用其中之一。不幸的是，我终其一生都无法弄清楚如何让它发挥作用。我尝试了以下各项:我发现某处他们指出我需要在函数调用前放置“function_”……这

  9. ruby - 如何使用 RSpec::Core::RakeTask 创建 RSpec Rake 任务？ - 2

    如何使用RSpec::Core::RakeTask初始化RSpecRake任务？require'rspec/core/rake_task'RSpec::Core::RakeTask.newdo|t|#whatdoIputinhere?endInitialize函数记录在http://rubydoc.info/github/rspec/rspec-core/RSpec/Core/RakeTask#initialize-instance_method没有很好的记录；它只是说:-(RakeTask)initialize(*args,&task_block)AnewinstanceofRake

  10. ruby - 检查数组是否在增加 - 2

    这个问题在这里已经有了答案:Checktoseeifanarrayisalreadysorted?(8个答案)关闭9年前。我只是想知道是否有办法检查数组是否在增加？这是我的解决方案，但我正在寻找更漂亮的方法:n=-1@arr.flatten.each{|e|returnfalseife

随机推荐