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

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

 

显示行号

 

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

 

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

 

 

现在发现想在冲压车间产品名称列办理入关键字搜索，输入第2个字把第一个字取替了，怎么回事？

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文本框输入内容和查找，不能直接在单元格输入值。

这个车间的规格列同样有象130楼冲压车间产品名称一样的目录树功能，以前冲压车间的产品名称列可输入关键字的，一直用得好好的，怎么现在不行了？我检查了一轮不知哪出问题了。

 你规格列也没有你所说的功能。认认真真看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