一个奇怪的问题～～

Question

一下是本人经常用的的过程，但用在这个模块就是有点奇怪：从数据库中把单位的资料显示到listview中，过程很简单，其中mGetUnitName是到另外一个表中由id号取得中文单位名称的函数（函数无错）。运行时过程正常通过，但自动运行listview中的第一行第一个记录看不到（其他行第一个记录都正常显示），如果在过程中设置断点后再运行或手动一步步执行运行，则全部显示正常，怪！！
希望高人指点一下是什么原因！
代码如下：'过程，将数据库中单位的资料显示到LsvMain1中
Private Sub mDataTOLsvMain1()
On Error GoTo mErr
    Dim mRst As New ADODB.Recordset
    Dim mItem As ListItem
    lsvmain1.ListItems.Clear
    mRst.Open "SELECT * FROM ComplexUnit", mConnectstring, adOpenKeyset, adLockPessimistic, adCmdText
    Do Until mRst.EOF
        Set mItem = lsvmain1.ListItems.Add(, , mGetUnitName(mRst("Unit_ID")))
        mItem.Tag = mRst("ComplexUnit_id")
        mItem.SubItems(1) = mRst("Rate")
        mItem.SubItems(2) = mRst("ComplexUnit_Name")        mRst.MoveNext
    Loop
        mRst.Close
    Set mRst = Nothing
Exit Sub
mErr:
    MsgBox Err.Number & Err.Description, vbCritical + vbOKOnly, mTitle
End Sub

Answer 1

看你的代码应该是没有什么问题的，楼主还是仔细检查mGetUnitName函数是否有返回空字符串的情况。