Foxtable(狐表)用户栏目专家坐堂 → [求助]组合框


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

主题:[求助]组合框

帅哥哟,离线,有人找我吗?
苏州老街
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:644 积分:4124 威望:0 精华:0 注册:2016/10/19 16:45:00
[求助]组合框  发帖心情 Post By:2017/3/6 13:51:00 [只看该作者]

老师,组合框下拉链名称集合目录树节点名称,按组合框下拉链名称定位目录树节点

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/6 14:33:00 [只看该作者]

没看懂,上图,上例子

 回到顶部
帅哥哟,离线,有人找我吗?
苏州老街
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:644 积分:4124 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/3/6 16:36:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:图像 1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/6 16:49:00 [只看该作者]

循环每一个节点

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim str As String = "税收"
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Text = str Then
        trv.SelectedNode = nd
        Exit For
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
苏州老街
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:644 积分:4124 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/3/6 17:24:00 [只看该作者]

老师,有点不理解。

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/6 17:32:00 [只看该作者]

 1、不理解,重新学一次foxtable,你根本一点代码都没看懂过。

 

 2、不想学那就上传具体实例


 回到顶部
帅哥哟,离线,有人找我吗?
苏州老街
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:644 积分:4124 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/3/6 19:55:00 [只看该作者]

老师,窗口1组合框求定位。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:定位.rar


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/6 20:50:00 [只看该作者]

TextChanged事件

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim str As String = e.Sender.Text
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Text = str Then
        trv.SelectedNode = nd
        Exit For
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
苏州老街
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:644 积分:4124 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/3/6 21:09:00 [只看该作者]

老师,怎样在下拉链框控件中显示目录树所有的节点。

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/6 21:30:00 [只看该作者]

Dim cbo As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cbo.ComboList = DataTables("进销存").GetComboListString("材料名称") & "|" & DataTables("进销存").GetComboListString("摘要")

 回到顶部
总数 11 1 2 下一页