Dim cr As Row = Tables("表A").Current
If cr.IsNull("优势树种") = False AndAlso cr.IsNull("平均胸径") = False AndAlso cr.IsNull("平均树高") = False Then