表存储的结构是这样的:
所属类别 所属子项 FOOT
A A 0 "这个是代表一级 A B 1 "这个是代表二级 C C 0 "这个是代表一级 现在表中A是有一级和二级!但C里面就只有一级了!!我想当有一级和两级的同时就取到二级这个数值 和 当只有一级时就取一级的数值..... 效果在ListView1中显示
所属类别:A 所属子项:B
所属类别:c 谢谢各位老师!! -----------------------------------
Private Sub Form_Load()
With Me.ListView1
ListView1.ColumnHeaders.Add , , "所属类别", 1900, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "所属子项", 3200, lvwColumnLeft
End With
Call OpenConn
SQL = "select 序号,所属类别,所属子项,Foot from 类别 where foot=1 ORDER BY 所属类别"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addLVW = Me.ListView1.ListItems.Add(, , rs!所属类别, , 1)
addLVW.SubItems(1) = rs!所属子项
rs.MoveNext
Loop
Call CloseConn
End Sub
所属类别 所属子项 FOOT
A A 0 "这个是代表一级 A B 1 "这个是代表二级 C C 0 "这个是代表一级 现在表中A是有一级和二级!但C里面就只有一级了!!我想当有一级和两级的同时就取到二级这个数值 和 当只有一级时就取一级的数值..... 效果在ListView1中显示
所属类别:A 所属子项:B
所属类别:c 谢谢各位老师!! -----------------------------------
Private Sub Form_Load()
With Me.ListView1
ListView1.ColumnHeaders.Add , , "所属类别", 1900, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "所属子项", 3200, lvwColumnLeft
End With
Call OpenConn
SQL = "select 序号,所属类别,所属子项,Foot from 类别 where foot=1 ORDER BY 所属类别"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addLVW = Me.ListView1.ListItems.Add(, , rs!所属类别, , 1)
addLVW.SubItems(1) = rs!所属子项
rs.MoveNext
Loop
Call CloseConn
End Sub
解决方案 »
- 我装的VB里面怎么没有ADO连接呀,请各位高手帮帮我,我都重装了好几次了,也换了几个不同的版本,总是看不到ADO连接
- 怎么调用自己制作的控件?
- 如何知道INI文件里有多少项
- 求关于VB程序设计课程实验系统的文献综述!
- 优化代码和帮助
- 高分请求全国计算机二级vb机试题
- 请问一下怎么一次性读出一个文本的内容?
- 請問 VB 中如何取得某線程(Thread)下的API函數名稱?
- 怎样用timer实现定时功能?
- 请问哪有fortran powerstation4.0下载,十分着急
- vb能禁止修改ip不,即禁用后用专门的ip修改软件也修改不了
- vba 向文档(如js,java,xls,doc等等)首行插入一行或多行值
SELECT 序号,类别.所属类别,所属子项,类别.FOOT FROM 类别
INNER JOIN (
SELECT 所属类别,MAX(FOOT) AS FOOT FROM 类别
GROUP BY 所属类别
) A
ON 类别.所属类别=A.所属类别 AND 类别.FOOT = A.FOOT
ORDER BY 类别.所属类别试试