Foxtable(狐表)用户栏目专家坐堂 → [求助]datarow 集合,可以用集合add来加入行吗?


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

主题:[求助]datarow 集合,可以用集合add来加入行吗?

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


加好友 发短信
等级:超级版主 帖子:107754 积分:548109 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/20 21:12:00 [显示全部帖子]

Dim tr As WinForm.TreeView = e.Form.Controls("项目类别")
Dim filter As String
Dim drs As new List (of String)
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 1 
        If nd.Checked = True Then
            drs.Add(nd.DataRow("合同编号"))
        End If
    End If
Next

If drs.Count > 0 Then
    filter =  "合同编号 in ('" & String.Join("','",drs.ToArray()) & "')"
    DataTables("施工合同").LoadFilter = filter
    DataTables("施工合同").Load
    Tables("主窗口_table1").Filter = filter
    Tables("主窗口_table1").Sort = "签订日期 desc"
Else
    Return
End If

 回到顶部