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

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