在线等，关于ListView和数据库的问题
我用的listview实现查询功能
我也在form_load里写了
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "学号", 2000
ListView1.ColumnHeaders.Add , , "姓名", 2000
ListView1.ColumnHeaders.Add , , "班级", 2000
ListView1.ColumnHeaders.Add , , "成绩", 2000
这些字段不居中。怎么样居中啊，
还有，我在窗体上有几个文本框和按钮，在点查询按钮时，怎么样在呀相应的字段下显示符合文本框中条件的记录啊 用的表为成绩表
问题点数：10、回复次数：5Top
1 楼daisy8675（莫依 沉迷）回复于 2004-11-02 23:24:27 得分 4
.ColumnHeaders.Add , , "Name", 2000, lvwColumnCenter
‘在宽度后面家上lvwColumnCenter就是居中对齐
Top
2 楼daisy8675（莫依 沉迷）回复于 2004-11-02 23:26:26 得分 1
还有，我在窗体上有几个文本框和按钮，在点查询按钮时，怎么样在呀相应的字段下显示符合文本框中条件的记录啊 用的表为成绩表
//
这个问题只与sql有关系和listview没关系
if rs.stata<>adstateclosed then rs.close
rs.open"Select Name,Meno from TableName where Name='Jack',conn,3,1
if not rs.eof then
text1.text=Trim(rs("Name")& "")
text2.text=Trim(rs("Meno"))
end if
Top
3 楼hufaming2004（一步一个脚印）回复于 2004-11-02 23:58:57 得分 0
谢谢你
不过。我用了不能居中啊，提示没有定义
还有我是想问在listview下面显示
是什么属性Top
4 楼babyt（阿泰）回复于 2004-11-03 00:12:58 得分 5
这段代码完全可行,除了第一列必须居左外,其余各列均可以居中
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "学号", 2000
ListView1.ColumnHeaders.Add , , "姓名", 2000, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "班级", 2000, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "成绩", 2000, lvwColumnCenter
你提到到的没有定义的问题,不知道是不是因为你把lvwColumnCenter写成lvwCenter了
后面的关键字是用于内容的
Top
5 楼hufaming2004（一步一个脚印）回复于 2004-11-04 01:19:25 得分 0
我试了,是这样的
我还为什么开始可以查询,现在又不行了
下面是我的代码:
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 IfTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
