Source auto update [skip ci]

Author: DevExpressExampleBot

VB/DisplayCustomText_CodeBehind/DisplayCustomText_CodeBehind.Net5.vbproj

@@ -4,7 +4,8 @@
     <OptionInfer>On</OptionInfer>
     <TargetFramework>net8.0-windows</TargetFramework>
     <OutputType>WinExe</OutputType>
-    <RootNamespace></RootNamespace>
+    <RootNamespace>
+    </RootNamespace>
     <AssemblyName>DisplayCustomText_CodeBehind</AssemblyName>
     <GenerateAssemblyInfo>true</GenerateAssemblyInfo>
     <GenerateAssemblyVersionAttribute>false</GenerateAssemblyVersionAttribute>

VB/DisplayCustomText_CodeBehind/DisplayCustomText_CodeBehind.vbproj

@@ -6,7 +6,8 @@
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
     <ProjectGuid>{A8BF3950-CDAC-43C1-82F0-955D63BB7A23}</ProjectGuid>
     <OutputType>WinExe</OutputType>
-    <RootNamespace></RootNamespace>
+    <RootNamespace>
+    </RootNamespace>
     <AssemblyName>DisplayCustomText_CodeBehind</AssemblyName>
     <TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
     <FileAlignment>512</FileAlignment>

VB/DisplayCustomText_CodeBehind/MainWindow.xaml.vb

@@ -29,7 +29,7 @@ Namespace DisplayCustomText_CodeBehind
         End Sub
 
         Private Sub gridControl1_CustomColumnDisplayText(ByVal sender As Object, ByVal e As CustomColumnDisplayTextEventArgs)
-            If Not e.Column.Equals(Me.columnProductName) Then Return
+            If Not e.Column.Equals(Me.columnProductName) OrElse e.ListSourceIndex < 0 Then Return
             If CDbl(Me.gridControl1.GetCellValue(e.RowHandle, "Discount")) > 20 Then e.DisplayText =(CStr(e.Value)) & " (SALE)"
         End Sub
 

VB/DisplayCustomText_MVVM/DisplayCustomText_MVVM.Net5.vbproj

@@ -4,7 +4,8 @@
     <OptionInfer>On</OptionInfer>
     <TargetFramework>net8.0-windows</TargetFramework>
     <OutputType>WinExe</OutputType>
-    <RootNamespace></RootNamespace>
+    <RootNamespace>
+    </RootNamespace>
     <AssemblyName>DisplayCustomText_MVVM</AssemblyName>
     <GenerateAssemblyInfo>true</GenerateAssemblyInfo>
     <GenerateAssemblyVersionAttribute>false</GenerateAssemblyVersionAttribute>

VB/DisplayCustomText_MVVM/DisplayCustomText_MVVM.vbproj

@@ -6,7 +6,8 @@
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
     <ProjectGuid>{D1323D6C-09A3-40CB-BCCE-6842E60758DF}</ProjectGuid>
     <OutputType>WinExe</OutputType>
-    <RootNamespace></RootNamespace>
+    <RootNamespace>
+    </RootNamespace>
     <AssemblyName>DisplayCustomText_MVVM</AssemblyName>
     <TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
     <FileAlignment>512</FileAlignment>

VB/DisplayCustomText_MVVM/MainViewModel.vb

@@ -42,7 +42,7 @@ Namespace DXGrid_DisplayCustomText_MVVM
 
         <Command>
         Public Sub CustomColumnDisplayText(ByVal args As ColumnDisplayTextArgs)
-            If Not Equals(args.FieldName, NameOf(Invoice.ProductName)) Then
+            If Not Equals(args.FieldName, NameOf(Invoice.ProductName)) OrElse args.SourceIndex < 0 Then
                 Return
             End If