If e.DataRow("公路等级")= "高速" Or "一级" Then
改成
If e.DataRow("公路等级")= "高速" Or e.DataRow("公路等级") = "一级" Then