主题：[求助]如何让comlist 只显示最后一个用户名称？

If str>"" Then

    e.Form.Controls("UserName").ComboList = str.split("|")(0)

加入msgbox调试。

http://www.foxtable.com/help/topics/1485.htm

    cmd.CommandText = "Select * Fr om {用户管理表} Where [用户名] = '" & e.Form.Controls("UserName").value & "'"
    dt = cmd.ExecuteReader
    dr = dt.DataRows(0)
    e.Form.Controls("UserPhoto").Image = GetImage(projectPath & "Attachments/" & dr("用户照片"))

改成

    cmd.CommandText = "Select * Fr om {用户管理表} Where [用户名] = '" &  str.split("|")(0) & "'"
    dt = cmd.ExecuteReader

    If dt.DataRows.Count > 0 Then
        dr = dt.DataRows(0)
        e.Form.Controls("UserPhoto").Image = GetImage(projectPath & "Attachments/" & dr("用户照片"))

    End If