主题：下面的代码我想改成case语句，应该怎么该？谢谢！！！

If e.DataRow("ischeck")=5 Or e.DataRow("ischeck")=31 Then
e.DataRow("小计")=e.DataRow("productNum") * e.DataRow("价格")
Else
e.DataRow("小计")=0
End If

If e.DataRow("Ischeck") =5 Then
e.DataRow("oktime")= Date.now()
e.DataRow("ok数量")=e.DataRow("productNum")- e.DataRow("wenti数量") - e.DataRow("未付款数量") - e.DataRow("已付款数量")

Dim dr As DataRow = e.DataRow

Dim i As Integer　＝　e.DataRow("ischeck")

If i=5 OrElse i=31 Then

    dr("小计")=dr("productNum") * dr("价格")

Else

    dr("小计")=0

End If

Select Case i

    Case 5

        dr("oktime")= Date.now()

        dr("ok数量")=dr("productNum")- dr("wenti数量") - dr("未付款数量") - dr("已付款数量")

    Case 7

        dr("celtime")= Date.now()

        dr("取消数量")=dr("productNum")

    Case 31

        dr("yifutime")= Date.now()

        dr("已付款数量")=dr("productNum") - dr("wenti数量") - dr("未付款数量")

    Case 3

        dr("wenti")= Date.now()

        dr("wenti数量")=dr("productNum")

End Select