代码问题，请帮忙修改！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码问题，请帮忙修改！

共有3498人关注过本帖树形打印复制链接主题：代码问题，请帮忙修改！

身份不明

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

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

代码问题，请帮忙修改！ 发帖心情

Post By：2014/4/18 9:49:00 [只看该作者]

如下图：我的数据是通过逻辑列从上一流程转过来的，因为代码设置的是实际入库数量 < 数量 =短款

但现在的问题是：实际入库数量为空，也默认的为短款，而当手动填入实际入库数量后，

如果实际数量等于数量，长短款列应为空的，这时候还需要手动删除短款2字。请老师帮修改下代码！

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg

If e.DataCol.name= "实际入库数量" OrElse e.DataCol.name= "数量" Then
   If e.DataRow("实际入库数量")<e.DataRow("数量") Then
              e.DataRow("长短款")= "短款"
   Else If e.DataRow("实际入库数量")>e.DataRow("数量") Then
              e.DataRow("长短款")= "长款"
   End If
End If

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/18 9:52:00 [只看该作者]

else

e.DataRow("长短款")= ""
End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/18 9:52:00 [只看该作者]

If e.DataCol.name= "实际入库数量" OrElse e.DataCol.name= "数量" Then
    If e.NewValue = Nothing OrElse e.NewValue = 0 Then
        e.DataRow("长短款") = Nothing
    Else
        If e.DataRow("实际入库数量")<e.DataRow("数量") Then
            e.DataRow("长短款")= "短款"
        Else If e.DataRow("实际入库数量")>e.DataRow("数量") Then
            e.DataRow("长短款")= "长款"
        End If
    End If
End If

下一主题 >> << 上一主题

主题：代码问题，请帮忙修改！