不应该。你弹出值看看
Dim tr As DataRowmsgbox(tr("aa) = nothing)msgbox(tr("aa") = "")msgbox(tr.isnull("aa"))For Each s As String In tr("aa") msgbox(s & asc(s)) Next