比如这个循环语句:For i = 0 To rs1.Fields.Count - 1
values = "<td>" & rs1.Fields(i).Value & "</td>"
Print #1, values
Next i如何加入自己的判断语句,使得当rs1第2列中的值为空时,在<td></td>标签中打出“无”字

解决方案 »

  1.   

    这样行不?
    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
      

  2.   

    晕,就差一步,我自己这样写For i = 0 To rs1.Fields.Count - 1
    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”运算后显示为空的单元格,还是仍然没有显示“无”
      

  3.   

    For i = 0 To rs1.Fields.Count - 1
    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
      

  4.   


    这样写,“left JOIN”后有出现空值的行,整行都变成“无”了,呵呵
      

  5.   

    查询语句上作调整最好
    不用这里处理
    select 字段1,isnull(字段2,""),……
      

  6.   

    If rs1.Fields(i).Value & "" = "" Then
      

  7.   

    这是表1:
    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  无  无
      

  8.   

    罗嗦一下吧,意思就是数值为null时(是指有效数据,不是为空)……
    其实用VB里面的isnull()也可以,或者判断是否=null ...方法很多,唉