If IsNumeric(dr(dc.name)) AndAlso dc.name<>"允许借款" Then
改成
If dc. IsNumeric AndAlso dc.name<>"允许借款" Then