dim strID ,strName as string
Me.treeview.ImageList = Me.ImageList1
for i as integer =0 to dsbm.table(0).rows.count-1
strID=dsbm.table(0).rows(i)("ID").tostring.trim
strName=dsbm.table(0).row(i)("Fname").tostring.trim
Me.treeview.nodes.add(strName).tag=strID
Me.treeview.Nodes(i).SelectedImageIndex = 0
Me.treeview.Nodes(i).ImageIndex = 0
next i
sql="select ID Fname from 数据库名 where 条件"
然后将数据加到自己定义的dataset,这里定义为dsbm.
添加个imagelist 控件 添加上你要的图片
dim strID ,strName as string
Me.treeview.ImageList = Me.ImageList1
for i as integer =0 to dsbm.table(0).rows.count-1
strID=dsbm.table(0).rows(i)("ID").tostring.trim
strName=dsbm.table(0).row(i)("Fname").tostring.trim
Me.treeview.nodes.add(strName).tag=strID
Me.treeview.Nodes(i).SelectedImageIndex = 0
Me.treeview.Nodes(i).ImageIndex = 0
next i