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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下面的代码我想改成case语句，应该怎么该？谢谢！！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38456)

--  作者：jinzhengbe
--  发布时间：2013/7/30 3:56:00
--  下面的代码我想改成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("已付款数量")

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

--  作者：y2287958
--  发布时间：2013/7/30 6:18:00
--

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

[此贴子已经被作者于2013-7-31 11:07:00编辑过]

--  作者：jinzhengbe
--  发布时间：2013/7/30 20:46:00
--

非常非常，感谢！！！！