- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [已解决]InputValue函数问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14381)
-- 发布时间：2011/11/17 16:05:00
-- [已解决]InputValue函数问题
此主题相关图片如下：窗口概览.png
上面的图，按钮“设置提示”想用一个InputValue函数。提示没有设置到对象实例
请问代码应该怎么写？
[此贴子已经被作者于2011-11-17 17:13:42编辑过]
-- 发布时间：2011/11/17 16:23:00
--
代码？
-- 发布时间：2011/11/17 17:04:00
-- [求助]InputValue函数问题
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim dr As DataRow
Dim s As String
If InputValue(s, "请输入节点描述", "") Then
dr = Tree1.find("TreeFullPath = \'" & nd.FullPath & "\'")
dr("提示") = s
nd.Tooltip = dr("提示")
End If
e.Form.Close()
我这么写不行。
-- 发布时间：2011/11/17 17:08:00
--
Dim s As String = ""
-- 发布时间：2011/11/17 17:11:00
--
好像是bug哎。
这样没事：
Dim s As String
InputBox(s, "列宽设置")
-- 发布时间：2011/11/17 17:13:00
-- [求助]InputValue函数问题
名不虚传
-- 发布时间：2011/11/17 17:19:00
-- [已解决]InputValue函数问题
是的，帮助里面的例子就没有赋值啊。所以想不通
-- 发布时间：2011/11/17 17:19:00
--
我看看
-- 发布时间：2011/11/17 17:24:00
--
以下是引用hanxuntx在2011-11-17 17:19:00的发言：
是的，帮助里面的例子就没有赋值啊。所以想不通
是的，帮助里面的例子就没有赋值啊。所以想不通
只是变量为字符型时才有此问题。