在线等，关于ListView和数据库的问题

Question

我用的listview实现查询功能
我也在form_load里写了
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "学号", 2000
ListView1.ColumnHeaders.Add , , "姓名", 2000
ListView1.ColumnHeaders.Add , , "班级", 2000  
ListView1.ColumnHeaders.Add , , "成绩", 2000
这些字段不居中。怎么样居中啊，还有，我在窗体上有几个文本框和按钮，在点查询按钮时，怎么样在呀相应的字段下显示符合文本框中条件的记录啊 用的表为成绩表

Answer 1

.ColumnHeaders.Add , , "Name", 2000, lvwColumnCenter
‘在宽度后面家上lvwColumnCenter就是居中对齐

Answer 2

还有，我在窗体上有几个文本框和按钮，在点查询按钮时，怎么样在呀相应的字段下显示符合文本框中条件的记录啊 用的表为成绩表//
这个问题只与sql有关系和listview没关系
if rs.stata<>adstateclosed then rs.close
rs.open"Select Name,Meno from TableName where Name='Jack',conn,3,1if not rs.eof then
   text1.text=Trim(rs("Name")& "")
   text2.text=Trim(rs("Meno"))
end if

Answer 3

谢谢你
不过。我用了不能居中啊，提示没有定义
还有我是想问在listview下面显示
是什么属性

Answer 4

这段代码完全可行,除了第一列必须居左外,其余各列均可以居中
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "学号", 2000
ListView1.ColumnHeaders.Add , , "姓名", 2000, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "班级", 2000, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "成绩", 2000, lvwColumnCenter你提到到的没有定义的问题,不知道是不是因为你把lvwColumnCenter写成lvwCenter了
后面的关键字是用于内容的

Answer 5

我试了,是这样的
我还为什么开始可以查询,现在又不行了
下面是我的代码:
Dim i, j As Integer
' On Error Resume Next
   cj.MoveFirst
   'ListView1.ListItems.Clear
   If TexNO.Text = cj.Fields("学号") And Texlessen.Text = cj.Fields("科目名称") Then
    For i = 0 To cj.RecordCount
     'For i = 0 To 10
    
'And Texname.Text = cj.Fields("姓名"
      ListView1.ListItems.Add i, , cj.Fields("科目名称") & vbNullString
         
        ListView1.ListItems(i).SubItems(1) = cj.Fields("学号") & vbNullString
        ListView1.ListItems(i).SubItems(2) = cj.Fields("姓名") & vbNullString
       ListView1.ListItems(i).SubItems(3) = cj.Fields("班级") & vbNullString
        If Combo1.ListIndex = 0 Then
          ListView1.ListItems(i).SubItems(4) = cj.Fields("第一学期成绩")
        ElseIf Combo1.ListIndex = 1 Then
          ListView1.ListItems(i).SubItems(4) = cj.Fields("第二学期成绩")
        ElseIf Combo1.ListIndex = 2 Then
           ListView1.ListItems(i).SubItems(4) = cj.Fields("第三学期成绩")
        ElseIf Combo1.ListIndex = 3 Then
           ListView1.ListItems(i).SubItems(4) = cj.Fields("第四学期成绩")
        End If
         
   
        cj.MoveNext
       ' Next i
    Next i
   End If