主题：[求助]代码

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

l老师，我在点击单元格的时候出现这样的对话框。

Dim ck As DataRow = e.DataRow
Select Case e.DataCol.Name
      Case "出库_数量","出库_售价"
        ck("出库_金额") = ck("出库_数量") * ck("出库_售价")/1.17
    Case "出库_金额"
        ck("出库_价税合计") = ck("出库_金额") * 1.17
    Case "出库_价税合计","出库_金额"
        ck("出库_税金") = ck("出库_价税合计") - ck("出库_金额")
End Select

这个代码有问题吗？