在listview里显示的时候，最好一组数总是显示不出来，显示为“...“，不知道为什么，大家帮我审一下，这也是借鉴别人的程序。


Dim gocn, gorsAuthors, gorsAuthorsChange, gorsTitles, gorsTitlesAuthors
Set gocn = CreateObject("ADODB.Connection")
Set gorsAuthors= CreateObject("ADODB.Recordset")
gocn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_tai3_07_06_13_10_31_54R;Data Source=.\WinCC"
gorsAuthors.open "SELECT * FROM panpi ", gocn, 1, 3
Dim ListView1
Set ListView1=ScreenItems("ListView1")
ListView1.ListItems.clear
Do While gorsAuthors.EOF=False
ListView1.ListItems.Add,,"原料 "&gorsAuthors.Fields("yuanliao")& " 长 "&gorsAuthors.Fields("chanG")&" 宽 "&gorsAuthors.Fields("kuAn")
gorsAuthors.MoveNext
Loop