Need a sample code for SqlTableEditorSaveData function to restrict saving No value from drop down

Case Is = DashboardExtenderFunctionType.SqlTableEditorSaveData
   If  args.FunctionName.XFEqualsIgnoreCase("VerifyRecords") Then
       Dim saveDataTaskInfo As XFSqlTableEditorSaveDataTaskInfo = args.SqlTableEditorSaveDataTaskInfo
       Dim saveDataTaskResult As New XFSqlTableEditorSaveDataTaskResult()
       If Not saveDataTaskInfo.EditedDataRows Is Nothing
           For Each xfRow As XFEditedDataRow In saveDataTaskInfo.EditedDataRows
           
               If Not xfRow.InsertUpdateOrDelete.Equals(DbInsUpdateDelType.Delete)
                   'Based on your column you can check for values
                   Dim sColValue as string = xfRow.ModifiedDataRow.Item("ColName").ToString 
                   If not sColValue.XFEqualsIgnoreCase("Yes")
                       saveDataTaskResult.IsOK = False
                       saveDataTaskResult.ShowMessageBox = True
                       saveDataTaskResult.Message = "Does not meet criteria"
                       saveDataTaskResult.CancelDefaultSave = True 'Note: Use True if we already saved the data rows in this Business Rule.
                       Return saveDataTaskResult
                   End if
               End If
               
           Next
       End If
   End If

   Using dbConn As DbConnInfo = BRApi.Database.CreateDbConnInfo(si, saveDataTaskInfo.SqlTableEditorDefinition.DbLocation, saveDataTaskInfo.SqlTableEditorDefinition.ExternalDBConnName)
       dbConn.BeginTrans()
       BRApi.Database.SaveDataTableRows(dbConn, saveDataTaskInfo.SqlTableEditorDefinition.TableName, saveDataTaskInfo.Columns, saveDataTaskInfo.HasPrimaryKeyColumns, saveDataTaskInfo.EditedDataRows, True, False, False)
       dbConn.CommitTrans()
   End Using

   saveDataTaskResult.IsOK = True
   saveDataTaskResult.ShowMessageBox = False
   saveDataTaskResult.Message = ""
   saveDataTaskResult.CancelDefaultSave = True
   
   Return saveDataTaskResult
   
End Select