Foxtable(狐表)用户栏目专家坐堂 → 目录树的选定内容如何保存成一行


  共有5279人关注过本帖树形打印复制链接

主题:目录树的选定内容如何保存成一行

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/5/4 11:42:00 [显示全部帖子]

设置在目录树的NodeMouseClick事件中:

 

Dim r AS Row = Tables("xxx").AddNew
r("某列") = e.node.Text


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/5/11 10:27:00 [显示全部帖子]

With Tables("名录搜索_tblSearchjindu")
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    Dim r As Row = .addnew()
    r("tijiaoriqi") = Date.Today
    r("guanjianci")=e.Form.Controls("txtSearch").text
    r("guanjianci")= trv.SelectedNode.Text
End With

 回到顶部