if isnull(rs.Fields(0).value)=false then Combo3.AddItem rs.Fields(0).value

解决方案 »

  1.   

    同意Hassle() ,先判断不为空再添加到combo中
      

  2.   

    Combo3.AddItem ""  & rs.Fields(0)  
    *****************************************************************************
    欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
    http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
      

  3.   

    倒是可以了,但是出现了这样的问题“男性型脱发'Combo3.AddItem "斑秃"其它”,那一选择行变成这样了,这是怎么回事啊?
      

  4.   

    ??
    Combo3.AddItem rs.Fields(0)
      Combo4.AddItem rs.Fields(0)
      Combo5.AddItem rs.Fields(0)
      Combo6.AddItem rs.Fields(0)这应该是 0,1,2,3吧
    还有 if rs.fields(0) & "" <> "" then  Combo3.AddItem rs.Fields(0) 这样写你的表可能有问题
      

  5.   

    这个问题现在没有了,现在变成了"标准表达式中类型不匹配",黄色的箭头在:
    "rs2.Open sql, conn, adOpenKeyset, adLockPessimistic"这里,我模块里面有个"DTPicker"控件,是不是这个问题呢?我在数据库中这个字段的类型是"时间/日期",为默认的那种,是不是有什么问题啊?请指教!
      

  6.   

    rs2.Open sql, conn, adOpenStatic, adLockOptimistic
      

  7.   

    sql = "select * from patiant where 病历编号='" & Text1.Text & "'"病历编号是文本吗?
      

  8.   

    编号是数字啊!怎么了啊?我在MODULE中定义了"Dim 病历编号 As String",应该没有问题吧?
      

  9.   

    是不是DTPicker"控件的那个时间传递有什么问题啊?
      

  10.   

    sql = "select * from patiant where 病历编号=" & val(Text1.Text)
      

  11.   

    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from lei"
    rs.Open sql, conn, adOpenKeyset, adLockPessimistic
    rs.MoveFirst
    Do While Not rs.EOF
      黄色箭头在这里: If Not Isnull Rs.FIelds(0) then Combo3.AddItem rs.Fields(0)
      If Not Isnull Rs.FIelds(0) then Combo4.AddItem rs.Fields(0) 
      If Not Isnull Rs.FIelds(0) then Combo5.AddItem rs.Fields(0)
      If Not Isnull Rs.FIelds(0) then Combo6.AddItem rs.Fields(0)
      rs.MoveNext
    Loop
    rs.Close
      

  12.   

    sql = "select * from patiant"
      

  13.   

    我的问题解决了!谢谢大家!原来是我在"& val(Text1.Text) &"中加上了 ',所以一直通不过,我现在调试通过了!谢谢大家!还有个问题,我想在里面加个图片添加框,来增加图片,请问我要注意些什么呢?
      

  14.   

    我觉得用这种 方法访问数据库不太好  
           可以搞一个模块  mod1    声明一个  
    public function getConnection() as ADODB.Connection  
      dim con as new ADODB.Connection
       with con
         .connectionstring =" "
         .commandtimeout=15
         .connectiontimeout=30
       end with
       getConnection=con
    end function 在其他地方 
        dim con as new ADODB.Connection  
        dim rs as new ADODB.Recordset
        set con=getConnection
        con.open
        set rs=con.exset(sql)
        while not rs.eof 
         do something
        wend
        rs.close
        con.close
     比较省资源