请问下for i=0 to ubound(a) 并且等于1234？

Question

表里有hy,mm,a 字段已知字段hy=1,2,3已知字段mm=4,5,6已知字段a=1234,2345,3456,a=split(a,",")hy=split(hy,",")mm=split(mm,",")for i=0 to ubound(a)条件：我想让他只提出2345想对应的数据比如说：我现在想条件知道2345 那数据就是 2 5 2345跪求啊！！

Answer 1

Private Enum mytable
thy = 1
tmm = 2
ta = 3
End Enum
Private a, hy, mm
Private Function FindData(ByVal findText As String, Optional ByVal nType As mytable = ta) As String
Dim tem
Select Case nType
Case thy: tem = hy
Case tmm: tem = mm
Case ta: tem = a
End Select
For i = 0 To UBound(tem)
If tem(i) = findText Then
FindData = hy(i) & "," & mm(i) & "," & a(i)
Exit For
End If
Next
End Function

Private Sub Form_Load()
hy = Split("1,2,3", ",")
mm = Split("4,5,6", ",")
a = Split("1234,2345,3456", ",")
Me.Caption = FindData("1234")
End Sub
看下这个试验代码,可能对你有用!!!! ^_^