If !empty(Allt(Thisform.TEXT3.Value))
    Select cyon ,cyom From user_temp Order By cyom Where Allt(Thisform.TEXT3.Value) $ cyom Into Cursor temp1
   
    Sele temp1
    With thisform.list1
        .RowSourceType=6
        .RowSource="temp1.cyon"
        .ColumnCount=1
        .REQUERY
    Endwith
Else
    Nodefault
Endif
请教：user_temp是从sql取数据生成的临时表，以上代码在文本框中输入姓名拼音简码后，不能在listbox中显示名字？应该如何修改？

[此贴子已经被作者于2017-6-28 22:47编辑过]

     With thisform.list1
       .clear
       .RowSourceType=6
        .RowSource="temp1.cyon"
        .ColumnCount=1
    Endwith

谢谢，已解决！