'如果ACCESS表中该"单位"字段出现了空数值的时候取出来的数值就包含了空数值的,如何做才能让空的数值不取出来呢,,,,,,,,,
Private Sub Form_Load()
With Me.ListView1
.ColumnHeaders.Add = "单位"
End With
Call OpenConn
SQL = "select 单位 from 基础资料 where 单位 GROUP BY 单位"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addLVW = Me.ListView1.ListItems.Add(, , rs!单位, 0)
rs.MoveNext
Loop
Call CloseConn
End Sub
解决方案 »
- 按扭问题
- 用vb向EXCEL中写入数据时,怎样设置单元格内容的对齐方式?
- 有关Access数据库备份的问题!!Access->Excel /Access
- 函数如何返回Control类型?
- 请教一个Serer与多个Client之间用winsocket进行UDP通讯的问题
- 又是datagrid
- 如何将vb程序的标题栏变成xp样式
- mscomm控件访问虚拟红外端口的奇怪错误:8020:读comm设备错误
- 关于错误提示: Run-time error'5' Invalid procedure call or argument ~在线求高人指点~~急`~
- datacombo 这个控件怎么用
- 100分求一个控制扫描仪的dll控件的源码,BS粘贴复制的!
- 导出 Macromedia(Adobe) Director CAST 演员帧
Private Sub Form_Load()
With Me.ListView1
.ColumnHeaders.Add = "单位"
End With
Call OpenConn
SQL = "select 单位 from 基础资料 where 单位 GROUP BY 单位"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
if not isnull(rs!单位) then
Set addLVW = Me.ListView1.ListItems.Add(, , rs!单位, 0)
end if
rs.MoveNext
Loop
Call CloseConn
End Sub或这样试试:
Private Sub Form_Load()
With Me.ListView1
.ColumnHeaders.Add = "单位"
End With
Call OpenConn
SQL = "select 单位 from 基础资料 where not isnull(单位) GROUP BY 单位"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addLVW = Me.ListView1.ListItems.Add(, , rs!单位, 0)
rs.MoveNext
Loop
Call CloseConn
End Sub
'但问题还是那样子,获取出来还是包含字段中的(空内容)'比如说表中是:'序号 名称 单位
1 AA 个
2 BB 只
3 CC ''''''''问题是获取出来的数据是: 个
4 DD 个 只
5 EE 只 空值 '''''''''''如何解决获取出来的数据是不带空值的呢?
如果是NULL
select 单位 from 基础资料 where not isnull(单位) GROUP BY 单位
如果是""
select 单位 from 基础资料 where 单位<>'' GROUP BY 单位