datagridview 超链接 ---vb.net

databind事件中：

If e.Row.RowType = DataControlRowType.DataRow Then

   Dim link As New HyperLink
   link = DirectCast(e.Row.Cells(3).Controls(0), HyperLink)
   link.NavigateUrl = "FMADefectDetail.aspx?CodeId=" & e.Row.Cells(1).Text & "&FromDate=" & txtFromDate.Text & "&ToDate=" & txtToDate.Text & "&ShiftId=" & ddlShift.Text & "&WoType=" & ddlWoType.Text & "&LineId=" & txtLineId.Text & "&OpId=" & txtFMAOp.Text 
End If