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("日期") End If End Select