为什么出错,帮忙看一下(初学VB)

Question

Public Function TNUL(ByVal vRaw As Variant) As String
    TNUL = IIf(IsNull(vRaw) = True, "", vRaw)
End Function

Answer 1

MyFlex.Text = TNUL(rs.Fields(3).Value)

Answer 2

以下方法可以更方便的处理各种字段的Null值：MyFlex.Text = rs.Fields(3).value & ""也就是说，将所有的字段值后面都加： & ""，这样就不会出错了。

Answer 3

msflexgrid是不允许接收空值的，你照以上各位的方法做就OK

Answer 4

可以自己编一个函数convertnull()实现
Function ConvertNull(para_Value As Variant) As Variant
If IsNull(para_Value) = True Then
    ConvertNull = ""
Else
    ConvertNull = para_Value
End If
End Function
以后调用这个函数就行了