- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在新增短信按扭里写代码？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42135)
-- 发布时间：2013/11/5 0:59:00
-- 如何在新增短信按扭里写代码？
如何在新增短信按扭里写代码？
如图所示
点击左边目录树节点，再点击新增按钮，在分类列自动输入点击的节点名称
如：点击“喜庆新春”，再点击“新增短信”按钮，在分类列自动输入“喜庆新春”。
此主题相关图片如下：2.bmp
-- 发布时间：2013/11/5 8:27:00
--
非常简单,获取树控件的 selectedNode 的Text 然后为单元格赋值即可
-- 发布时间：2013/11/5 18:49:00
--
谢谢，请再帮我看看代码：
我用下列代码能为单元格赋值，但是出现找不到控件TreeView1，窗口的目录树名就是TreeView1。
Dim tr As WinForm.TreeView
tr = Forms("常用短信短语管理").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
Dim dr As DataRow = DataTables("常用短信短语管理").AddNew
dr("分类") = nd.Text
End If
tr.Select()
此主题相关图片如下：22.bmp
-- 发布时间：2013/11/5 19:30:00
--
代码没有错，请注意下是否确实拼写正确。
-- 发布时间：2013/11/5 22:09:00
--
谢谢