Kan lägga den i en Dictionary.. men egentligen: Om du måste ha alla värden så måste du ju ändå ha alla värden.
Trådstart#1
Hej!
Jag har en funktion som anropas så här:
lExternalTaskId=CreateNewTask(sCustomerNr, sCustomerName, sCustomerOrderer, nPlanDateType, sPriority, tmPlanStartDate, tmPlanStopDate, sTask, sCustomT1, sCustomT2, sCustomT3, sTaskNote)
det som händer egentligen, är att en rad "hämtas" från en tabell/databas och "läggs till" en annan...
Allt fungerar finfint, men jag tycker det ser så fult ut.. 
Det blir så många parametrar...
Kan man gör på något annat sätt...
Hela funktionen ser ut så här:
'******************************
'Funktion för att skapa nytt uppdrag
'
'******************************
Function CreateNewTask(sCustomerNr, sCustomer, sCustomerOrderer, nPlanDateType, sPriority, tmPlanStartDate, tmPlanStopDate, sTask, sCustomT1, sCustomT2, sCustomT3, sTaskNote)
dim lNextId
dim sSQL
dim sUser, sOwner, sCreatedBy
sUser="(Kö)"
sOwner="(Kö)"
sCreatedBy="*********"
lNextId=GetNextExternalId("tblTask")
sSQL="INSERT INTO [Uppdrag NU Pro v3 Testföretag 2].dbo.[tblTask] ([Id], [Modified], [Status], [TaskNr], [Priority], [PlanDateType], [PlanStartDate], [PlanStopDate], [CreatedBy], [CreatedDate], [Owner], [User], [CustomerNr], [CustomerName], [CustomerOrderer], [Task], [CustomT1], [CustomT2], [CustomT3], [TaskNote] ) VALUES (" _
& lNextId & ", GetDate(), 2, '" & GetNextTaskNr() & "', " & sPriority & ", " & nPlanDateType & ", '" & tmPlanStartDate & "', '" & tmPlanStopDate & "', '" & sCreatedBy & "', GetDate(), '" & sOwner &"', '" & sUser & "', '" & sCustomerNr & "', '" & sCustomer & "', '" & sCustomerOrderer & "', '" & sTask & "', '" & sCustomT1 & "', '" & sCustomT2 & "', '" & sCustomT3 &"', '" & sTaskNote &"')"
ExecuteSQL(sSQL)
CreateNewTask=lNextId
End function
Mvh
Henrik
eller?