主题：[求助] 如何获得单元格中的值？

我想获得单元格中的值，当“产品名称”不为空时，才可以提交订单：

If e.DataCol.Name = "提交订单" Then

    Dim dr2 As DataRow = e.DataRow("产品名称")

    If dr2 Is Nothing Then

        MessageBox.Show("请先填写品名数据再提交!")

        e.Cancel = True

    End If

End If

问题二：当前登陆用户须与原始订单录入者一致时，才能通过菜单的 “编辑” 命令修改和删除订单：

If DataTables(“订单”).DataRows("业务员") <> User.Name Then

    MessageBox.Show("对不起，你不是订单录入者本人，无法修改订单！")

    Return

Else

    Tables("订单").Current.Delete

End If

请问狐狸爸爸，以上两段代码，应该怎样修改，才能实现？