一个list控件问题!

Question

打开一个数据库
运行：List1.AddItem ("<<" & rst1.Fields("所借书籍") & ">>")
只显示<<书名 
要求：<<书名>>
问：怎么解决

Answer 1

不会吧，没有是么问题
我的是好的，你在试试Set rs = New ADODB.Recordset
rs.Open "select id,mc from mz", conn, 1, 3
If rs.EOF Then
Exit Sub
End IfFor i = 0 To rs.RecordCount - 1
List1.AddItem ("<<" & rs.Fields("mc") & ">>")'List1.AddItem rs.Fields("mc")
List1.ItemData(i) = rs.Fields("id")
rs.MoveNext
Next

Answer 2

把List1.AddItem ("<<" & rst1.Fields("所借书籍") & ">>")
改为List1.AddItem ("<<" & rst1("所借书籍") & ">>")试一下

Answer 3

不好意思，原来是<<书名            >>中存在N个空格，控件原来画得太小，看不见另外的一半，现在有一个新的问题，怎么去掉那些空格!!!!

Answer 4

List1.AddItem ("<<" & trim( rst1.Fields("所借书籍")) & ">>")

Answer 5

List1.AddItem ("<<" & rtrim(rst1.Fields("所借书籍")) & ">>")
如用trim(),Fields("...")中的所用空格将被删除

Answer 6

去除空格的函数:不要直接用trim
Public Function Nvl(a_vInVar As Variant) As Variant    Dim l, i As Integer
    Dim str As String
    
    str = ""
    If IsNull(a_vInVar) Then
      str = ""
    Else
      str = Trim(a_vInVar)
    End If
    
    Nvl = str
    
End Function
list1.additem ("<<" & nvl(rst1("book")) & ">>")

Answer 7

用trim()已经解决了问题，thank you