| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/17 11:11:47 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 代码如下： with rscx do for i:=0 to ADODataSet1.RecordCount-1 do begin ListItem:=ListView1.Items.Add; ListItem.Caption:=DBMemo1.Field.Text; //员工序号 ListItem.SubItems.Add(IntToStr(i+1)); ListItem.SubItems.Add(DBMemo1.Field.Text); ListItem.SubItems.Add(DBMemo2.Field.Text); //部门 ListItem.SubItems.Add(DBMemo63.Field.Text); ListItem.SubItems.Add(DBMemo3.Field.Text); ListItem.SubItems.Add(DBMemo10.Field.Text); ListItem.SubItems.Add(DBMemo9.Field.Text); //何时工作 ListItem.SubItems.Add(DBMemo64.Field.Text); //备注/其它 ListItem.SubItems.Add(DBMemo65.Field.Text); //Next Record ADODataSet1.Next; Label2.Caption:='员工总数:'+intToStr(ADODataSet1.RecordCount); end; 上面是一个笨办法，循环添加数据库中的内容到列表（ListView已设为报表格式） 问题是对于子项如何设置字体颜色，假设ListView中有10行，前3行字体设为红色， 后3行字体设为绿色，剩下的4行设为黑色，不知道能否实现！着急 ---------------------------------------------- -Borland，永远爱你 |
|||||
| 作者： |
|
2004/2/17 11:19:05 | ||||
| 1楼： | OnDrawSubItem里设置字体 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/17 11:25:54 | ||||
| 2楼： | 大哥，给个简单例子行吗！ ---------------------------------------------- -Borland，永远爱你 |
|||||
| 作者： |
|
2004/2/17 11:37:25 | ||||
| 3楼： | defaultdraw:=true; //cdsSelected if item.SubItems.Strings[0]='员工号'then//让满足条件的条变色 listview1.Canvas.brush.Color:=claqua; ---------------------------------------------- 我真的不会！ |
|||||
| 信息 |
| 登陆以后才能回复 |
