我在文本框选择事件中写入代码：

Dim a As Row = Tables("售后出差申请").Current
Dim jl As WinForm.TextBox = e.Form.Controls("部门经理签名")
Dim rc As WinForm.TextBox = e.Form.Controls("审核日期")
Dim ss As WinForm.TextBox = e.Form.Controls("售后签名")
Dim ssrc As WinForm.TextBox = e.Form.Controls("售后审核日期")
Dim zf As WinForm.CheckBox = e.Form.Controls("转发工厂")
Dim sh As WinForm.PictureBox = e.Form.Controls("已审核")
Dim ph As WinForm.TextBox = e.Form.Controls("配合度")
Dim tj As WinForm.TextBox = e.Form.Controls("现场条件")
Dim yw As WinForm.TextBox = e.Form.Controls("我方义务")
Dim qt As WinForm.TextBox = e.Form.Controls("其它")
Dim mb As WinForm.TextBox = e.Form.Controls("完成目标")
Dim zy As WinForm.TextBox = e.Form.Controls("注意事项")
Dim w As DataRow = DataTables("员工表").Find("[部门] = \'储运部\'and  [职务] = \'经理\' ")
If jl.Value = ""  Then
    MessageBox.Show("部门经理未审核,您不能越过此流程","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    If ss.Value <> ""  Then
        MessageBox.Show("此文件已经审核","审核",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        If w("姓名") = user.Name Then
            a("售后审核签名") = user.Name
            a("售后审核日期") = Date.Now
            sh.Image  = GetImage("已审核.jpg" )
            zf.ReadOnly =BooleanEnum.False
            ph.ReadOnly =BooleanEnum.False
            zf.BackColor = Color.Red
            tj.ReadOnly =BooleanEnum.False
            yw.ReadOnly =BooleanEnum.False
            qt.ReadOnly =BooleanEnum.False
            mb.ReadOnly =BooleanEnum.False
            zy.ReadOnly =BooleanEnum.False
        Else
            MessageBox.Show("非售后部门经理,您无权审核","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning)
        End If
    End If
End If

目的是想让对应部门的对应人员才有权去签名审核。但报错...

报错为：

此主题相关图片如下：qq截图20130325100823.jpg

求解