Question

vb中怎么用list控件让数据库中的数据在MSHFlexGrid1分类显示

Answer 1

追问： 恩是的 如果我想让里面的内容分类显示 比如我想查production的内容 查找后只显示production里的内容 怎么办啊 回答： 直接构造个满足条件的SQL语句不就可以了么sql="select 字段 from 表名 where 名称='Production'"然后执行SQL语句 再用FOR循环 将返回的记录集 添加到list控件中 追问： for 循环怎么将返回的记录集添加到list中啊 麻烦你详细点 谢谢 追问： 我的界面是这样的我想让我选择男后就让下面的控件中只显示性别为男的数据 回答： 给你写了个比较简陋的 满足你要求的代码 其余的自己扩展一下吧 带说明Dim link As New ADODB.Recordset Dim sql As String '查询语句 Public Sub runsql(sql As String) '用来运行SQL语句 conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False" If link.State = 1 Thenlink.CloseEnd Iflink.Open sql, conn, 1, 3End SubPrivate Sub Command1_Click()' 点击后将性别为男的 姓名放入LIST中 Call runsql("select 姓名 from 表1 where 性别='男'") For i = 0 To link.RecordCount - 1 List1.AddItem link.Fields(0) If link.EOF = False Then link.MoveNextEnd IfNext iEnd SubPrivate Sub Form_Load()'运行后 显示所有记录 Call runsql("select * from 表1") Set MSHFlexGrid1.DataSource = link MSHFlexGrid1.RefreshEnd SubPrivate Sub Option1_Click()'查看所有男的记录 Call runsql("select * from 表1 where 性别='男'")