主题：[讨论]这个代码错在哪儿

Dim dr As Row
Select Case Vars("ViewName")
    Case "图纸信息"
        dr("Drw_recorder")=User.Name
    Case "到料信息"
        dr("Delivery_Record")=User.Name
    Case "预组装日报"
        dr("Delivery_Record")=User.Name
    Case "座浆板日报"
        dr("Delivery_Record")=User.Name
    Case "安装日报"
        dr("Delivery_Record")=User.Name
    Case "灌浆日报"
        dr("Delivery_Record")=User.Name
    Case Else
        dr("Delivery_Record")=User.Name
End Select

那个高手解答一下