主题：如何在新增短信按扭里写代码？

如何在新增短信按扭里写代码？

 

如图所示

 

点击左边目录树节点，再点击新增按钮，在分类列自动输入点击的节点名称

　如：点击“喜庆新春”，再点击“新增短信”按钮，在分类列自动输入“喜庆新春”。

此主题相关图片如下：2.bmp

谢谢，请再帮我看看代码：

 

我用下列代码能为单元格赋值，但是出现找不到控件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

谢谢