我有一个我们正在维护的遗留VB应用程序.我们采取的设计决策是将某些数据点存储为连接字符串.由于大多数代码都是完整的,因此这一变化是一成不变的.
我正在通过一系列值运行循环.我正在做的是,查找参考表中每个值的LABEL.我需要能够在一个标签中显示值.我很难将值集中到字符串中,然后将其显示在标签中.这是我的代码......
If strField = "Expenditures" Then
If InStr(1, strOldValue, ",") > 0 Then
strArray = Split((strOldValue), ",")
For x = 0 To UBound(strArray)
For Each item In strArray
strMessage = DLookUp(1, "Label", "tblText_References", "ID = '" & item & "'
**''''******here I'm trying to save teh value in strMessage, however, at next item, I need it to be added to strMessage in some fashion, with a (,), I'm not sure how to do it. There are anywhere from 2 …