
我在用户表单中有一个列表框。我使用SQL查询来提取数据,然后填充列表框。当我查看SQL中的查询时,它很好,并在这些字段中显示文本。列表框显示了这些数字,4和5,我假设的是列名或字段值?
它应该是“垃圾填埋场/威尔菲尔德”和"O2等级“,所以它不是一个文本长度问题。这些都是测试数据。最后一栏正确显示“火花插头/点火系统”。
列表框有7列数据。
列表框填充的代码:
lbx_SSM.Clear
Do Until XL_RSet.EOF = True
For i = 1 To 7
If i = 1 Then
lbx_SSM.AddItem (XL_RSet.Fields(columnName(i)))
Else
If Not (XL_RSet.Fields(columnName(i)) = "Null")
Then lbx_SSM.List(lbx_SSM.ListCount - 1, i - 1) =(XL_RSet.Fields(columnName(i)))
End If
Next i
XL_RSet.MoveNext
Loop发布于 2018-06-18 18:32:49
我想明白了,我不知道问题是什么,但用它填充列表框而不是上面的列表框并不会导致问题。我以前一直使用第一段代码,所以它可能是Field()问题或什么的。见下文:
XL_RSet.Open
XL_RSet.MoveFirst
i = 0
With Me.lbx_SSM
.Clear
Do
.AddItem
.List(i, 0) = XL_RSet![ID]
.List(i, 1) = XL_RSet![Unit]
.List(i, 2) = XL_RSet![Begin Time] ***Etc for other columns
i = i + 1
XL_RSet.MoveNext
Loop Until XL_RSet.EOF
End Withhttps://stackoverflow.com/questions/50913526
复制相似问题