上传具体实例说明。

• 工料单价表内，筛选树：商丘市虞城县产业聚集区——材料——基本材料，工料单价表：新增行，项目ID是空白，希望默认项目ID与筛选树所在的项目ID相同

此主题相关图片如下：1507624415(1).png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成本测算170811-3.rar

DataRowAdded事件

For Each a As OBJECT In Tables("工料单价").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "筛选树" Then
            Dim tr = b.controls(0).controls(0)
            If tr.selectednode IsNot Nothing AndAlso tr.selectednode.text <> "显示所有行" Then
                Dim ary1() As String = "项目名称|工料一类|工料二类|工料名称".split("|")
                Dim ary2() As String = tr.selectednode.fullpath.split("\\")
                For i As Integer = 0 To ary2.length-1
                    If e.DataTable.DataCols(ary1(i)).Expression = "" Then
                        e.DataRow(ary1(i)) = ary2(i)
                    End If
                Next
                Dim fdr As DataRow = DataTables("工程项目").find("项目名称 = \'" & ary2(0) & "\'")
                If fdr IsNot Nothing
                    e.DataRow("项目id") = fdr("项目id")
                End If
            End If
        End If
    Next
Next