[求助]datarow 集合，可以用集合add来加入行吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tr As WinForm.TreeView = e.Form.Controls("项目类别")

Dim filter As String

Dim drs As new List (of DataRow)

For Each nd As WinForm.TreeNode In tr.AllNodes

If nd.Level = 1 And nd.Checked = True Then

drs.Add(nd.DataRow)

End If

If drs.Count > 0 Then

For Each dr As DataRow In drs

DataTables("施工合同").SQLReplaceFor("非活动",0, "合同编号 = '" & dr("合同编号") & "'")

DataTables("施工合同").SQLReplaceFor("非活动",1, "合同编号 <> '" & dr("合同编号") & "'")

DataTables("施工合同").LoadFilter = "非活动 = 0"

DataTables("施工合同").Load

Tables("主窗口_table1").Filter = "非活动 = 0"

Tables("主窗口_table1").Sort = "签订日期 desc"

Else

Return

End If

这种用法对吗？

我这样写，只有最后一个;选中的节点，被筛选出来了。其它的：非活动，全部为：1

[此贴子已经被作者于2016/12/20 19:41:03编辑过]

主题：[求助]datarow 集合，可以用集合add来加入行吗？