控制生产累计数不允许大于计划生产数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

看112楼，自己核对数据。

以下是引用意悠心轻在2017/1/12 0:30:00的发言：
冲压车间工资表订单列窗口中的未生产数不会自动数。

未生产数等于计划数减去实际数，怎么会不计算？

如果实际数为空的情况，要改公式 isnull([生产计划数],0)-isnull([实际生产数],0)

如果不需要修改，就不需要写代码的啊，红色代码去掉。

显示行号

http://www.foxtable.com/webhelp/scr/2308.htm

http://www.foxtable.com/webhelp/scr/1773.htm

keypressEdit事件

If e.Col.Name = "订单号" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
    'ElseIf e.Col.name <> "姓名" Then
    'If e.Col.DroppedDown Then '如果下拉窗口已经打开
    ''e.Col.CloseDropDown() '则关闭下拉窗口
    'End If
End If

If e.Col.Name = "产品名称" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
End If

If e.Col.Name = "姓名" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
End If

如果你要用目录树录入，请在下拉窗口放一个textbox文本框输入内容和查找，不能直接在单元格输入值。

你规格列也没有你所说的功能。认认真真看133楼。

keypressEdit事件代码

If e.Col.Name = "订单号" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
End If

If e.Col.Name = "姓名" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
End If

keydownEdit事件

If e.Col.Name = "订单号" Then '如果编辑的是客户 ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("窗口5_Table1")
        If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键
            tbl.Position = tbl.Position - 1 '向上移动一行
            e.Cancel = True
        ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键
            tbl.Position = tbl.Position + 1 '向下移动一行
            e.Cancel = True
        End If
    End If
End If

If e.Col.Name = "姓名" Then '如果编辑的是客户 ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("窗口1_Table1")
        If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键
            tbl.Position = tbl.Position - 1 '向上移动一行
            e.Cancel = True
        ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键
            tbl.Position = tbl.Position + 1 '向下移动一行
            e.Cancel = True
        End If
    End If
End If

主题：控制生产累计数不允许大于计划生产数