Dim fdr As DataRow = tb.find("资产负债表 = '" & c.name & "'")
If fdr IsNot Nothing AndAlso fdr.Isnull("资产负债表包含科目") Then