[求助]全选功能如何实现 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

点一个工程名称下层节点全部选择如何写代码
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20131030173206.png

窗口

下载信息 [文件大小：下载次数： ]
点击浏览该文件:111.zip

[此贴子已经被作者于2013-10-31 13:49:05编辑过]

好歹也上个例子啊,发个窗口模版还是绑定数据源的,你让别人如何使用.

获得该节点的 allnodes 然后设置checked属性为TRUE即可很简单的

http://www.foxtable.com/help/topics/2302.htm

If e.Node.Level = 1 Then
    For Each nd As WinForm.TreeNode In e.Node.AllNodes
        nd.Checked = True
    Next
End If

[此贴子已经被作者于2013-10-30 17:53:22编辑过]

If e.Node.Nodes.Count > 0 Then
    For Each nd As WinForm.TreeNode In e.Node.Nodes
        nd.Checked = True
    Next
End If

窗口代码如下，不知高手能不能帮到我

If e.Node.Level = 2 Then

Dim dr As DataRow = e.Node.DataRow

If e.Node.Checked = True Then

Dim dr1 As DataRow = DataTables("材料采购申请单").AddNew()

dr1("产品编号") = dr("产品编号")

dr1("产品名称") = dr("产品名称")

dr1("品牌规格") = dr("品牌规格")

dr1("单位") = dr("单位")

dr1("成本预算数量") = dr("数量")

dr1("成本预算单价") = dr("单价")

Else

Dim dr2 As DataRow = DataTables("材料采购申请单").Find("产品名称 = '" & dr("产品名称") & "' And 品牌规格 = '" & dr("品牌规格") & "'","_Identify DESC",0)

If dr2 IsNot Nothing AndAlso dr2.RowState = DataRowState.Added Then

dr2.Delete()

End If

Else

e.Node.Checked = False

End If

If e.Node.Level = 2 Then

Dim Vals() As String = e.Node.FullPath.Split("\")

Dim Filter As String = "[中标工程名称] = '" & vals(0) & "' and [产品名称] = '" & Vals(1) & "' And [品牌规格] = '" & Vals(2) & "'"

Dim dr As DataRow = DataTables("材料费预算表").Find(Filter)

Dim r As Row = Tables("材料采购申请单").Current

r("产品编号") = dr("产品编号")

r("产品名称") = dr("产品名称")

r("品牌规格") = dr("品牌规格")

r("单位") = dr("单位")

r("成本预算数量") = dr("数量")

r("成本预算单价") = dr("单价")

e.Form.Close()

End If

[此贴子已经被作者于2013-10-30 17:58:50编辑过]

回复6楼，参考4、5楼的代码。

我可以实现全选了，但我全选后不能实现全选后自动输入信息，一个一个选能，如何实现

不是直接在循环里写入你赋值的代码就行了？实在不会，你就做个例子上来。

If e.Node.Nodes.Count > 0 Then
For Each nd As WinForm.TreeNode In e.Node.Nodes
nd.Checked = True

'下面写入你赋值的代码
Next
End If

[此贴子已经被作者于2013-10-30 20:16:36编辑过]

上传例子求助，现在只能单选，我想又能单选，又能点工程名称全选

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.table

oaok	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：六尾狐帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00	Post By：2013/10/30 17:40:00 [只看该作者] 用户已经被屏蔽

主题：[求助]全选功能如何实现