主题：怎样做一下逐行刷新选定列的按钮？

1、你不是可以先删除数据，然后重置列计算？

2、具体问题做个实例发上来说明。

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


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

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

点击浏览该文件:test (3).foxdb

代码改成

Select Case e.DataCol.Name
    Case "类别","编号","日期"
        Dim dr As DataRow = e.DataRow
        Dim fdr As DataRow = e.DataTable.find("编号 = '" & dr("编号") & "'", "_sortkey")
        If fdr IsNot Nothing Then
            dr("合成") = dr("编号") & "-" & fdr("类别") & "-" & dr("日期")
        Else
            dr("合成") = dr("编号") & "-" & dr("类别") & "-" & dr("日期")
        End If
End Select