这段代码错在什么地方啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这段代码错在什么地方啊？

共有7501人关注过本帖树形打印复制链接主题：这段代码错在什么地方啊？

jinzhengbe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

这段代码错在什么地方啊？ 发帖心情

Post By：2013/3/19 8:47:00 [只看该作者]

剩余数量发生变化时

Dim dar As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "剩余数量","状态"
        If dar.IsNull("剩余数量") And dar("剩余数量") > 0 Then
            dar("状态") = 2

If dar.IsNull("剩余数量") And dar("剩余数量") <= 0 Then
dar("状态") = 6

else

if 表 2中的状态=9 then dar("状态") = 表2（”状态“）

End If
End If

我的设计思路是。如果剩余数量大于 0 状态 =2 如果剩余数量<=0 则状态 =6

但是测试结果并不能得到这种效果，不知道是哪里出了问题。还望给位大侠指教

[此贴子已经被作者于2013-3-19 8:55:46编辑过]