本帖最后由 bcrun 于 2012-09-19 11:22:32 编辑

解决方案 »

  1.   

    rs1.Fields(10) = rs1.Fields(5) & ""
      

  2.   

    本帖最后由 bcrun 于 2012-09-19 11:23:07 编辑
      

  3.   

    本帖最后由 bcrun 于 2012-09-19 11:20:51 编辑
      

  4.   

    说明你的库表各字段数据类型。
    rs1.Fields(10) = rs1.Fields(5) 是在做什么? 
    b = Format(rs1.Fields(10), Now) 是什么意思?
      

  5.   

    本帖最后由 bcrun 于 2012-09-19 11:24:09 编辑
      

  6.   

    并且 b = rs1.Fields(10)   出现null的错误
      

  7.   

    1
        If rs1.Fields(10) Is NullThen 
            rs1.Fields(10) = rs1.Fields(5) 
            rs1.Update 
        End If2 str1 什么类型?DateDiff 的返回值是 Integer。如果参与运算的值有 Null,返回值就是 Null。
     
    rs1.Fields(10) = Now() 
    rs1.Fields(9) = DateDiff("n", rs1.Fields(10), Now())
      

  8.   

    If rs1.Fields(10) Is Null Then  这句出现 要求对象的错误
      

  9.   

    VB中ISNull用法有问题:
    If IsNull(rs1.Fields(10)) then 
    .....
    Else
    .....
    End If