- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- InputValue的使用，我错在哪了？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116267)
-- 发布时间：2018/3/22 0:31:00
-- InputValue的使用，我错在哪了？
StartEdit事件中设置了代码：
Select Case e.Col.Name
Case "第一列"
Dim Val As Integer
If InputValue(Val, "更新物品数量", "请输入物品数量:") Then
e.Row("第一列") = val
End If
End Select
会出现一种奇怪的情况：例如进入第一列的单元格，按下数字5，这时会弹出对话框。然后在对话框输入90，确认后该单元格的值居然是5，而不是90。无论什么数字都一样，返回的都是第一次键入的值。我错在哪了？
-- 发布时间：2018/3/22 0:33:00
-- InputValue的使用，我错在哪了？
如果是双击进入单元格则是正常的
-- 发布时间：2018/3/22 9:28:00
--
改成这样
Select Case e.Col.Name
Case "第一列"
Dim Val As Integer
If InputValue(Val, "更新物品数量", "请输入物品数量:") Then
e.Row("第一列") = val
End If
e.cancel = true
End Select
-- 发布时间：2018/3/22 13:49:00
--
可以了！