下面的代码我想改成case语句，应该怎么该？谢谢！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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("已付款数量")

End If
If e.DataRow("Ischeck") =7 Then
e.DataRow("celtime")= Date.now()
e.DataRow("取消数量")=e.DataRow("productNum")
End If
If e.DataRow("Ischeck") =31 Then
e.DataRow("yifutime")= Date.now()
e.DataRow("已付款数量")=e.DataRow("productNum") - e.DataRow("wenti数量") - e.DataRow("未付款数量")
End If
If e.DataRow("Ischeck") =3 Then
e.DataRow("wenti")= Date.now()
e.DataRow("wenti数量")=e.DataRow("productNum")
End If

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