anchor.diff:                              e 
                           @@> )
                       
  +                    // Create: ('a * 'b * 'c * ...) -> SqlEntity 
                       let create2 = ProvidedMethod("Create", normalParameters, entityType, InvokeCode = fun args -> 
  +                          
                             let dc = args.Head
                             let args = args.Tail
                             let columns =
  
positive.code:                     let normalParameters = 
                          columns 
                          |> List.map(fun c -> ProvidedParameter(c.Name,Type.GetType c.TypeMapping.ClrType))
                          |> List.sortBy(fun p -> p.Name)                 
                      let create1 = ProvidedMethod("Create", [], entityType, InvokeCode = fun args ->                         
                          <@@ 
                              let e = ((%%args.[0] : obj ):?> IWithDataContext).DataContext.CreateEntity(key)
  
negative.code:                               ((%%dc : obj ):?> IWithDataContext ).DataContext.SubmitChangedEntity e
                                e 
                            @@>)
                      
                      // Create: (data : seq<string*obj>) -> SqlEntity 
                      let create3 = ProvidedMethod("Create", [ProvidedParameter("data",typeof< (string*obj) seq >)] , entityType, InvokeCode = fun args -> 
                            let dc = args.[0]
                            let data = args.[1]
  