请问下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 mytablethy = 1tmm = 2ta = 3End EnumPrivate a, hy, mmPrivate Function FindData(ByVal findText As String, Optional ByVal nType As mytable = ta) As StringDim temSelect Case nTypeCase thy: tem = hyCase tmm: tem = mmCase ta: tem = aEnd SelectFor i = 0 To UBound(tem)If tem(i) = findText ThenFindData = hy(i) & "," & mm(i) & "," & a(i)Exit ForEnd IfNextEnd FunctionPrivate Sub Form_Load()hy = Split("1,2,3", ",")mm = Split("4,5,6", ",")a = Split("1234,2345,3456", ",")Me.Caption = FindData("1234")End Sub看下这个试验代码,可能对你有用!!!! ^_^