主题：求教老师们指点迷津

Dim Result As DialogResult
Result = MessageBox.Show("商品已经出库了吗?", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    If Tables("商品销售").Current("商品类别")="" Then
        MessageBox.Show("请输入商品类别!","提示!")
        e.Cancel = True
    ElseIf Tables("商品销售").Current("销售数量")="" Then
        MessageBox.Show("请输入销售数量!","提示!")
        e.Cancel = True
    Else
        DataTables("商品日期").Save()
        DataTables("商品销售").Save()
        MessageBox.Show("保存完毕!","提示!")
    End If
Else
    e.Cancel = True
End If

 

在命令窗口中输入上面的代码出现了如图所示的错误，求教老师们指点迷津，代码该怎么改

此主题相关图片如下：99999.png

上面的代码是用在保存按妞中，先提示用户销售的商品出库了没，如果“是”则执行代码验证列中的内容输入与否,验证同过后保存并提示，如果“否”则取消此次操作

感谢老师们的指点，继续努力学习