菜鸟求助！！！！！！

Question

在.textmatrix(.row,2)有多个人名，如张三；李四；王五等，请问如何获取其中的一个人名与数据库（rs("name")）去比较？

Answer 1

DIM buff() as string
dim s as string
s="张三；李四；王五"
buff=split(s,"；")'数组里存的就是人命
dim i as long
for i=0 to ubound(buff)
比较buff(i)与数据库中的数据
next

Answer 2

可以把s="张三；李四；王五" 写成s=.textmatrix(.row,2)

Answer 3

Dim s As String
Dim strname(3) As String
Dim i As Integer
s = "张三；李四；王五"
i = 1
Do While s <> ""
    '取得名字
    strname(i) = Mid(s, 1, InStr(s, ";"))
    s = Mid(s, InStr(s, ";") + 1)
Loop
'通过循环判断是否一致
For i = 1 To 3
    If strname(i) = rs.fields("name").Value Then
        MsgBox "OK"
    End If
Next i