|
#2
kissis2022-09-28 13:19
回复 楼主 kissis
|
只有本站会员才能查看附件，请 登录
代码：
Adodc4.ConnectionString = adoCon
Adodc4.RecordSource = "select * from Subsiby"
Adodc4.Refresh
With Adodc4
List1.Clear
.Recordset.MoveFirst
Do While Not .Recordset.EOF
List1.AddItem (.Recordset.Fields("补助类型").Value)
.Recordset.MoveNext
Loop
End With
Subsiby表中只有图中显示的前四项内容，如何才能让List1不重复添加。
