If e.DataCol.Name="第一列" AndAlso e.NewValue > 0 Then Dim dr1 As DataRow = e.DataRow Dim dr2 As DataRow = e.DataTable.Find("日期 < #" & e.DataRow("日期") & "#","日期 Desc") If dr2 Is Nothing Then dr1("环比") = 0 Else dr1("环比") = (dr1("第一列") - dr2("第一列")) / dr1("第一列") End If End If