试图用一些参数来发布请求，会出现类似JSON write__SwiftValue中无效类型的问题

如何解决试图用一些参数来发布请求，会出现类似JSON write__SwiftValue中无效类型的问题

我有一些参数，需要发布repeatInfo的请求。在JSON写入（__SwiftValue）中将错误作为无效类型获取错误信息

以下是发布请求参数。

 class RepeatInfo: NSObject,Codable {
                 dynamic var repeatType: String?
                 dynamic var endRecurrance : String?
                 dynamic var weekPattern: [String]?

            enum CodingKeys: String,CodingKey {
                  case repeatType = "repeatType"
                  case endRecurrance = "endRecurrance"
                  case weekPattern = "weekPattern"
               }
               convenience init(repeatType : String?,endRecurrance : String?,weekPattern : 
           [String]?) {

                     self.init()
                     self.repeatType = repeatType
                     self.endRecurrance = endRecurrance
                     self.weekPattern = weekPattern
                    }
             convenience required init(from decoder : Decoder) throws {

                  let container = try decoder.container(keyedBy: CodingKeys.self)
                  let repeatType = try container.decode(String.self,forKey: .repeatType)
                  let endRecurrance = try container.decode(String.self,forKey: .endRecurrance)
                  let weekPattern  = try container.decode([String].self,forKey: .weekPattern )
                  self.init(repeatType: repeatType,endRecurrance: endRecurrance,weekPattern: weekPattern )
            }
        }

下面是repeatInfo的类。

{{1}}

解决方法

尝试一下。

    Sub Delete_Row_Based_On_Bigger_Smaller_Value()

Dim ws As Worksheet

  ' Dont this bit,unless editted on a differently named sheet in which case replace sheet name with relevant sheet
  Set ws = ThisWorkbook.Worksheets("Data Set")
  ws.Activate

  ' Apply Filter. Edit the "ws.Range" with the letter you want to filter. Edit Criterial with what you want to delete. Dont touch the AutoFilter
  ws.Range("Q2:Q143691").AutoFilter Field:=1,Criteria1:="<400000"
  
  ' Delete Rows. Edit the "ws.Range" to be consistant with the above. Dont touch anything else
  Application.DisplayAlerts = False
    ws.Range("Q2:Q143691").SpecialCells(xlCellTypeVisible).Delete
  Application.DisplayAlerts = True
  
  ' Clearing Filter. Dont touch this
  On Error Resume Next
    ws.ShowAllData
  On Error GoTo 0

End Sub