这个有两种方法：
1：直接从Rst里读取数据，在Rst获得数据集合的时候
List1.Clear
rst.MoveFirst
Do While Not rst.EOF
List1.AddItem rst.Fields("text1") '这里把字段名修改成数据表里的实际字段名
rst.MoveNext
Loop
2：通过MSHFlexGrid1网格控件，向list添加数据
略
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024