Private Sub Command2_Click()
    Dim l_tbl_test(1 To 10) As rec_test
    l_tbl_test(1).div_opt = "1"
    l_tbl_test(1).div_opt_desc = "AAAAAAAA"
    For i = LBound(l_tbl_test) To UBound(l_tbl_test)
        If Len(l_tbl_test(i).div_opt) = 0 Then
            MsgBox "Last Record Number " & i
        End If
    Next i
End Sub

期望返回"Last Record Number 1", 可惜什么都没显示。
如何解决?

Dim l_tbl_test(1 To 10) As rec_test
    l_tbl_test(1).div_opt = "1"
    l_tbl_test(1).div_opt_desc = "AAAAAAAA"
    For i = LBound(l_tbl_test) To UBound(l_tbl_test)
        If Len(l_tbl_test(i).div_opt) = 0 Then
            MsgBox "Last Record Number " & i
        End If
    Next i
End Sub
注意：你设置的数组是从1-10而不是0-9
呵呵 你把判断条件改一下 Len(l_tbl_test(i).div_opt)> 0 那预期结果就是 Last Record Number 1 啦

在你的那条件当然不返回1，应该返回10才对！

我想知道第一个DIV_OPT值为空，所对应的数组Index号。

顶啊！

Dim l_tbl_test(1 To 10) As rec_test
    l_tbl_test(1).div_opt = "1"
    l_tbl_test(1).div_opt_desc = "AAAAAAAA"
    For i = LBound(l_tbl_test) To UBound(l_tbl_test)
        If Len(l_tbl_test(i).div_opt) = 0 Then
            MsgBox "Last Record Number " & i
           exit sub
        End If
    Next i
End Sub
这样输出结果就是Last Record Number 2

Dim l_tbl_test(1 To 10) As rec_test
    l_tbl_test(1).div_opt = "1"
    l_tbl_test(1).div_opt_desc = "AAAAAAAA"
    For i = LBound(l_tbl_test) To UBound(l_tbl_test)
        If Len(l_tbl_test(i).div_opt) = 0 Then
            MsgBox "Last Record Number " & i
           exit sub
        End If
    Next i
End Sub
这样输出结果就是Last Record Number 2