编程论坛 » VB6论坛 » 求助~，运行结果为无效使用null怎么办?

Strawberryl 发表于 2008-5-10 23:43

求助~，运行结果为无效使用null怎么办?

Dim sr As New ADODB.Recordset
  Dim j As Integer
  If connstr() Then
    Set sr = selectSql(st)
    With msglists
           .Rows = 1
       Do While Not sr.EOF
         Rows = Rows + 1
            For j = 0 To sr.Fields.Count - 1
              [color=DarkOrange]If Not isnull(Trim(sr.Fields(j).Value)) Then[/color]
                .TextMatrix(Rows - 1, j) = sr.Fields(j)
              Else
                .TextMatrix(Rows - 1, j) = ""
              End If
            Next j
        Loop
      End With
    End If

jxyga111 发表于 2008-5-20 12:01

如果:
iif(isnull(trimer(sr.fields(0)),"",sr.fields(0))

Strawberryl 发表于 2008-5-21 20:18

回复 2# 的帖子

解决了，谢谢啊~
自己在别的地方出错了啊

查看完整版本: 求助~，运行结果为无效使用null怎么办?