blackzhu 请进··· - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → blackzhu 请进···

共有11094人关注过本帖树形打印复制链接主题：blackzhu 请进···

mr725

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

blackzhu 请进··· 发帖心情

Post By：2010/9/18 20:28:00 [只看该作者]

前天你说：奇怪了,为什么刷新列没有用?一列一列刷新可以的. 下面就可以整列刷新啦：

你也是老狐先生了，应该看得出为什么刷新列没有用的原因了

If e.DataCol.Name = "产品" Then
    If e.DataRow.IsNull("产品") Then
        e.DataRow("出货明细") = Nothing
    Else
        Dim mx As String
        Dim drs As List(Of DataRow)
        drs = DataTables("出货明细").Select("[公司] = '" & e.DataRow("公司") & "'")
        For Each dr As DataRow In drs
            mx = mx & dr("出货时间") & " " & dr("出货数量") & vbCrLf
        Next
        e.DataRow("出货明细") = ""
        e.DataRow("出货明细") = mx
    End If
End If

mr725

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/18 20:56:00 [只看该作者]

如果你想在产品列发生变化后，时时刷新整列可以这样(也就是说不需要重置列了）：

If e.DataCol.Name = "产品" Then
    If e.DataRow.IsNull("产品") Then
        e.DataRow("出货明细") = Nothing
    Else
        Dim mx As String
        Dim drs As List(Of DataRow)
        For Each dr0 As DataRow In DataTables("表A").datarows
            drs = DataTables("出货明细").Select("[公司] = '" & dr0("公司") & "'")
            For Each dr As DataRow In drs
                mx = mx & dr("出货时间") & " " & dr("出货数量") & vbCrLf
            Next
            dr0("出货明细") = ""
            dr0("出货明细") = mx
            mx = ""
        Next
    End If
End If