स्ट्रिंग के रूप में दोहरे उद्धरण चिह्नों का उपयोग

मैंने आपके प्रश्न को कैसे समझा, मेरा मानना ​​है कि आपको BsonValue में डायनामिक आईडी जोड़ने की आवश्यकता है सरणी। इस answer के एक्सटेंशन का उपयोग करना :

<Extension()> _
Public Sub Add(Of T)(ByRef arr As T(), item As T)
    Array.Resize(arr, arr.Length + 1)
    arr(arr.Length - 1) = item
End Sub

जिसे आप अपने कोड में इस प्रकार उपयोग कर सकते हैं:

Dim dtDetails As DataTable = Utility.GetDetailsTable()
Dim resource_ids As new BsonArray

Dim dtrow = dtDetails.Select("id='" & user_id & "'")
If dtrow.Length > 0 Then
    For i As Integer = 0 To dtrow.Length - 1
       resource_ids.Add(Convert.ToString(dtrow(i)("instance_id")))
    Next
End If

Dim queries = Query.And(
    Query.EQ("user_id", user_id),
    Query.In("resource_id", resource_ids)
)

Dim Docs = ceilometer.GetCollection("meter").Find(queries)