vb6.0打印问题

[vbxbxy]

内容为空的时候怎么不让他显示null 啊？显示空格


Dim rs1 As New ADODB.Recordset
Dim cnn As New ADODB.Connection



Private Sub Form_Load()
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\123.accdb;Persist Security Info=False"

End Sub
Private Sub Command1_Click()
rs1.Open "select 序号, 部门所在, 所需物品名称、品牌、型号、规格、要求, 所需数量, 备注, 现有库存, 照片 from 物品采购计划单", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
Print
Font.Size = 14
Font.Name = "宋体"
Print Tab(42); "物品采购计划单"
CurrentY = 700
Font.Size = 9
Font.Name = "宋体"
Print Tab(10); "序号"; Tab(20); "部门所在"; Tab(40); "所需物品名称、品牌、型号、规格、要求"; Tab(100); "所需数量"; Tab(120); "备注"; Tab(130); "现有库存"; Tab(145); "照片"
Print Tab(5); String(150, "-")
rs1.MoveFirst
Do While rs1.EOF = False
Print Tab(10); rs1.Fields("序号"); Tab(20); rs1.Fields("部门所在"); Tab(40); rs1.Fields("所需物品名称、品牌、型号、规格、要求"); Tab(100); rs1.Fields("所需数量"); Tab(120); rs1.Fields("备注"); Tab(130); rs1.Fields("现有库存"); Tab(145); rs1.Fields("照片")
rs1.MoveNext
Loop
End If
rs1.Close
End Sub
Private Sub Command2_Click()
Command1.Visible = False
Command2.Visible = False
Me.PrintForm
End Sub

[现在还是人类]

从VB入手，使用 IsNull函数 和 IIF语句来处理 Print iif( isnull( rs1!部门所在 ), "", rs1!部门所在 ) 要不就从 SQL 语句入手 select 序号, IsNull(部门所在,''),IsNull(所需物品名称、品牌、型号、规格、要求,''), 所需数量, IsNull(备注,''), 现有库存, IsNull(照片,'') from 物品采购计划单

[vbxbxy]

引用 1 楼 现在还是人类 的回复:

从VB入手，使用 IsNull函数 和 IIF语句来处理
Print iif( isnull( rs1!部门所在 ), "", rs1!部门所在 )
要不就从 SQL 语句入手
select 序号, IsNull(部门所在,''),IsNull(所需物品名称、品牌、型号、规格、要求,''), 所需数量, IsNull(备注,''), 现有库存, IsNull(照片,'') from 物品采购计划单

感谢~！~！