If e.DataCol.Name.EndsWith("L") Then If e.newvalue > "" Then Dim cname As String = e.DataCol.name.Replace("L", "") If e.DataTable.DataCols.Contains(cname) Then e.DataRow(cname) = val(e.NewValue) / 2 End If cname = e.DataCol.name.Replace("L", "LN") If e.DataTable.DataCols.Contains(cname) Then e.DataRow(cname) = Math.Log(val(e.NewValue), Math.E) End If End If End If
|