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

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