比如这个循环语句:For i = 0 To rs1.Fields.Count - 1
values = "<td>" & rs1.Fields(i).Value & "</td>"
Print #1, values
Next i如何加入自己的判断语句,使得当rs1第2列中的值为空时,在<td></td>标签中打出“无”字
values = "<td>" & rs1.Fields(i).Value & "</td>"
Print #1, values
Next i如何加入自己的判断语句,使得当rs1第2列中的值为空时,在<td></td>标签中打出“无”字
解决方案 »
- WORD文档中如何区分汉字和英文!我的意图是要删除汉字,保留英文!ths
- 我的vb软件为什么在xp下运行窗口显示不完全啊?
- 网格?
- 出现“参考类型不正确,或不在可接受范围之内,或与其他类型相冲突”的错误。
- Thanks4Help(*^_^*) ,请进接分:)
- 怎样知道label显示的字符的宽度和长度
- 找中山VB朋友
- 如何将treeview控件嵌入到activebar中
- 《〈请教高手:如何自定义函数 , 将文件全路径名转化为文件名(无路径名, 无扩展名)???
- vb 中如何用ado连接dbf数据库?
- 如何使用打印机DEVMODE结构中的dmPaperSize
- 怎么用VB6实现Windows那样的开始菜单,具体会用但那些控件组成,要怎么控制,能给个例子的最好
For i = 0 To rs1.Fields.Count - 1
If rs1.Fields(i).Value = "" Then
Values = " <td>" & "无" & " </td>"
Else
Values = " <td>" & rs1.Fields(i).Value & " </td>"
End If
Print #1, Values
Next i
End Sub
If rs1.Fields(i).Value = "" Then
Values = " <td>" & "无" & " </td>"
End If
Values = " <td>" & rs1.Fields(i).Value & " </td>"
Print #1, Values
Next i
End Sub为什么不行?我不解,代码不就是从上往下来执行的吗还有一个问题啊,就算照您这样写,一部分成功有部分不成功,不成功的是那些用“left JOIN”运算后显示为空的单元格,还是仍然没有显示“无”
If rs1.Fields(1).Value & "" = "" Then
Values = " <td>" & "无" & " </td>"
Else
Values = " <td>" & rs1.Fields(i).Value & " </td>"
End If
Print #1, Values
Next i
End Sub
这样写,“left JOIN”后有出现空值的行,整行都变成“无”了,呵呵
不用这里处理
select 字段1,isnull(字段2,""),……
1 c ""
2 d ""
3 e ""这是表2:
1 a ""
2 b ""SQL语句大体结构是用 表1 left join 表22楼大哥得出的结果是:
1 a c 无
2 b d 无
3 e "" 无3楼大哥得出的结果是:
1 a c ""
2 b d ""
无 无 无 无而小弟想要实现的效果是:
1 a c 无
2 b d 无
3 e 无 无
其实用VB里面的isnull()也可以,或者判断是否=null ...方法很多,唉