|
现在是把"TX002"改为Me.Label7.Caption后就查不到数据,
求大神帮忙分析一下什么原因
Private Sub TextBox6_Enter()
Dim i As Integer, j As Integer
Dim rowData() As Variant
' 清除 ListBox2 中的现有内容
Me.ListBox2.Clear
' 设置 ListBox2 的列数
Me.ListBox2.ColumnCount = Me.ListBox1.ColumnCount
' 遍历 ListBox1 中的所有行
For i = 0 To Me.ListBox1.ListCount - 1
' 检查当前行的第一列数据是否等于 Label7 的标题
If Me.ListBox1.List(i, 0) = "TX002" Then
' 重新定义数组大小以匹配列数
ReDim rowData(Me.ListBox1.ColumnCount - 1)
' 获取满足条件的行数据
For j = 0 To Me.ListBox1.ColumnCount - 1
rowData(j) = Me.ListBox1.List(i, j)
Next j
' 将整行数据添加到 ListBox2
Me.ListBox2.AddItem rowData(0)
For j = 1 To UBound(rowData)
Me.ListBox2.List(Me.ListBox2.ListCount - 1, j) = rowData(j)
Next j
End If
Next i
End Sub
|
|