rs.Fields("str") 取到Nul值l就会出错，怎么处理！向高手请教

Question

If rs.State = 1 Then
            
            Do While Not rs.EOF'
                          combo.AddItem rs.Fields(str)  '出错时我想续继执行下一条
              
              rs.MoveNext
            Loop
       End If

Answer 1

If rs.State = 1 Then
            
            Do While Not rs.EOF '
         
                 If IsNull(rs.Fields(str)) = True Then
                    MsgBox "Error"
                 Else
                    combo.AddItem rs.Fields(str)  
                 End If
              rs.MoveNext
            Loop
       End If
加上对NUll的判断如果为真，就不执行。。combo.AddItem rs.Fields(str)

Answer 2

combo.AddItem trim$(rs.Fields(str)) & ""

Answer 3

楼上正解，不过也不用弹出错误，不添加就可以了
                 If IsNull(rs.Fields(str)) = False Then
                    combo.AddItem rs.Fields(str)  
                 End If

Answer 4

rs.Fields(str)改成 Trim("" & rs.Fields(str))

Answer 5

combo.AddItem rs!str & ""

Answer 6

就是combo.AddItem rs.Fields(str) & ""  就行了

Answer 7

不出错的上面都说的很清楚了
但楼主可能想为Null就不显示
if isnull(rs.Fields(str)) then
else
    combo.AddItem rs.Fields(str)
end if

Answer 8

dim aa as string aa = Rs.Fields("sss").value & ""并一个空串就OK了，

Answer 9

on error resume next
If rs.State = 1 Then
            
            Do While Not rs.EOF'
                          combo.AddItem rs.Fields(str)  '出错时我想续继执行下一条
              
              rs.MoveNext
            Loop
       End If

Answer 10

回复人： zichen66() ( ) 信誉：100  2004-11-19 11:37:00  得分: 0  
 
 
   combo.AddItem trim$(rs.Fields(str)) & ""
  
 
这个方法是对的.

Answer 11

回复人： zichen66() ( ) 信誉：100  2004-11-19 11:37:00  得分: 0  
 
 
   combo.AddItem trim$(rs.Fields(str)) & ""
  
 
这个方法是对的.
//如果这样的话，combo里就有一个空行了，不好吧，个人认为zgvslch(烟花离落)的不错。
  If IsNull(rs.Fields(str)) = False Then  '或If not IsNull(rs.Fields(str))  then
                    combo.AddItem rs.Fields(str)  
                 End If