太乱了,给点整齐的数据
[email protected]
[email protected]
解决方案 »
- FlexCell.Grid 不是一个已加载的控件类。
- 一段难弄的代码,高分!!!
- 如何在自定义控件中弹出的菜单分列并排显示?有没人有办法?
- VB高手请进?
- EXCEL操作题自动出题和自动阅卷系统的设计与实现
- 请问怎样将一个图片文件的内容读入一个Memory DC中。
- 请问各位,谁写过一个程序的整个文档,小弟很急,想参考一下。不知是否可以。谢谢了!
- 在调用API时如何指定缓冲区长度?
- 我实在不知道这个问题该上哪里问?属于哪类??就这里吧,希望能遇到大拿!!!!
- 一个毕业生的遭遇---我们真的是可怜的软件工吗?
- 高分征求解答!怎么把一个窗体的标题从任务栏里拿掉?
- 请指教,作软件开发的学VB合适吗,还应该学什么呢.(请各位指教)
序号--使用自动增量,NUMERIC
缺陷类型--varchar
缺陷内容--varchar
具体内容--varchar
具体设备--varchar
方向--int(用整数代表参数,具体在程序中实现)
安装方式1--int(用整数代表参数,0-水平1-垂直2-三角)
安装方式2--int
发生方位1--int
发生方位2--int
具体参数(非选项)-varchar
缺陷性质--varchar
处理意见--int
是否上报--boolean凡是参数固定的字段都可以使用整数型来代替。
可要在listview(或datagrid)里显示它如何实现?
在LISTVIEW中先定义好列标头(右键点属性),注意列标头与的RECORDSET中的字段要对应。
Dim xItem as ListItem
Dim rs as New Adodb.Recordset '假定已有可用的ado connection名为oconn
listview1.listitem.clear
if rs.state<>0 then rs.close
rs.open "select * from table1",oconn,1,3
do while not rs.eof
set xitem=listview1.listitem.add()
xitem.text=rs!序号
xitem.subitem(1)=rs!缺陷类型
.....
rs.movenext
loop
rs.close
set rs=nothing如果使用DATAGRID直接绑定就行了。
因为是临时写的,刚才有一点笔误。
第三行为Listview1.listitems.clear
第七行为set xitem=listview1.listitems.add()
第九行为xitem.subitems(1)=rs!缺陷类型
漏了s,呵呵!
谢谢!