主题：[求助]

老师好，筛选目录树显示数据后无法筛选。

 

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

点击浏览该文件:股piao操作.rar

此主题相关图片如下：筛选.png

老师好，点击目录树在表中不能筛选。

谢谢老师好了，另外有个问题窗口录入数据重新打开项目保存不了。

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

点击浏览该文件:股piao操作.rar

 

老师上面问题解决了可是下面有来问题了，通过股piao代码关联股piao明细表添加行，同时复制股piao名称内容下面代码不起作用。

If e.DataCol.Name = "股piao代码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("股piao名称") = Nothing
        e.DataRow("板块") = Nothing
        e.DataRow("证交所") = Nothing
        e.DataRow("股piao等级") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("股piao").Find("[股piao代码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("股piao名称") = dr("股piao名称")
            e.DataRow("板块") = dr("板块")
            e.DataRow("证交所") = dr("证交所")
            e.DataRow("股piao等级") = dr("股piao等级")
        End If
    End If
End If

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

点击浏览该文件:股piao操作.rar

"股piao"表"股piao行情"窗口。有时候能复制有时候不能复制反正不稳定。

子表增加行，有时增加第一行没有复制股piao名称第二行复制了。有时候全部不复制。

 

此主题相关图片如下：关联表.png

老师，上述问题和bin文件夹中的文件有关吗？另外关联表子表在添加行时希望显示从第一列起不要跑偏。

老师，下面代码在窗口中的关联表输入股piao名称不更新仓储列的数据。

Select Case e.DataCol.Name
    Case "股piao名称","买入量","卖出量"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [股piao名称] = '" & mr("股piao名称") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("仓储") = mr("买入量") - mr("卖出量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [股piao名称] = '" & dr("股piao名称") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("仓储") = drs(i-1)("仓储") + drs(i)("买入量") - drs(i)("卖出量")
        Next
        If e.DataCol.Name = "股piao名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [股piao名称] = '" & e.OldValue & "'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[股piao名称] = '" & e.OldValue & "'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("仓储") = dr("买入量") - dr("卖出量")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [股piao名称] = '" & dr("股piao名称") & "'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("仓储") = drs(i-1)("仓储") + drs(i)("买入量") - drs(i)("卖出量")
                Next
            End If
        End If
End Select

此主题相关图片如下：图像 2.png