dr = dt.DataTable.Find("[姓名] = '" & tr("支持对象") & "'")改为
dr = dt.Find("[姓名] = '" & tr("支持对象") & "'") 试试