--- title: "Mer problem..." type: "forum-thread" url: "https://www.webforum.nu/amne/dotnet/94291-mer-problem" topic: ".NET" topic_url: "https://www.webforum.nu/amne/dotnet" author: "maqe" published: "2004-01-08T21:51:17.000Z" updated: "2004-01-09T00:00:22.000Z" replies: 14 views: 332 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/94291-mer-problem" --- # Mer problem... ## #1 — maqe, 2004-01-08T21:51Z Det här ska väl funka ?? Codebehind: Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click '======================================= '## Uppdaterar vald menu i databasen ## Dim EntryId As Integer = Request.QueryString("id") Dim Linkname As String = myLinkName.Text Dim objBLDialog As myDialogClass = New myDialogClass() Try objBLDialog.UpdateMenuEntry(EntryId, Linkname) objBLDialog = Nothing Catch ex As Exception Throw (ex) End Try End Sub myBLClass.vb: '========================= '## Uppdatera nyheterna ## Function UpdateMenuEntry(ByVal EntryId As Integer, ByVal Linkname As String) Dim strSQL As String = "UPDATE tblMenu SET" & \_ " MenuName = '" & CheckUserInput(Linkname) & "'," & \_ " WHERE MenuId = " & EntryId Return ExecuteNonQuery(strSQL) End Function Kan tillägga att jag postar från en dialogruta men det ska ju inte vara annorlunda för det. Objektreferensen har inte angetts till en instans av ett... får jag som felmeddelande ?? Permalänk: https://www.webforum.nu/p/94291 ## #2 — Vimp, 2004-01-08T21:53Z Kanske kan vara myLinkName.Text som spökar? :q Testa att lägga in detta i din code-behind: ``` Protected WithEvents myLinkName As Textbox ``` Förmodar att myLinkName är en textbox ;) Permalänk: https://www.webforum.nu/p/1245903 ## #3 — maqe, 2004-01-08T21:58Z Jag har redan detta i min code behind ... Protected WithEvents myLinkName As Textbox... funkar inte att sätta myLinkName.Text = "apa" vid knapptryck ens hmm Permalänk: https://www.webforum.nu/p/1245910 ## #4 — Dino, 2004-01-08T22:02Z Vilken rad är det felmeddelandet pekar på? Permalänk: https://www.webforum.nu/p/1245911 ## #5 — Josef, 2004-01-08T22:08Z I din myBLClass.vb, har du döpt klassen till myDialogClass? Permalänk: https://www.webforum.nu/p/1245914 ## #6 — maqe, 2004-01-08T22:12Z Rad 59: Dim LinkName As String = myLinkName.Text Permalänk: https://www.webforum.nu/p/1245918 ## #7 — maqe, 2004-01-08T22:13Z > **Josef skrev:** > > I din myBLClass.vb, har du döpt klassen till myDialogClass? Japps det stämmer ... Permalänk: https://www.webforum.nu/p/1245920 ## #8 — Josef, 2004-01-08T22:14Z Och du är säker på att du verkligen har döpt Textboxen till *myLinkName*? Permalänk: https://www.webforum.nu/p/1245921 ## #9 — maqe, 2004-01-08T22:17Z > **Josef skrev:** > > Och du är säker på att du verkligen har döpt Textboxen till *myLinkName*? Japps helt säker på det med :) Permalänk: https://www.webforum.nu/p/1245924 ## #10 — Dino, 2004-01-08T22:19Z Ligger myLinkName i en repeater eller liknande? Permalänk: https://www.webforum.nu/p/1245925 ## #11 — maqe, 2004-01-08T22:22Z myLinkName ligger i en datalist ... gjorde så att jag ändrade till Dim LinkName As String = "test" och då va det inga problem att skriva till databasen ... problemet ligger i att jag vill tilldela LinkName myLinkName.Text ... det går den inte med på ... någon alternativ lösning på det? Permalänk: https://www.webforum.nu/p/1245928 ## #12 — Dino, 2004-01-08T22:58Z Ok, du måste ju veta vilken TextBox i DataListen som det gäller och då kan du gå via Datalistens ItemCommand event. I vb blir det väl nått sånt här. Detta förutsätter ju att varje rad i datalisten har en Ok knapp. ``` Private Sub Item_Command(sender As Object, e As DataListCommandEventArgs) Handles datalistnamn.ItemCommand Dim EntryId As Integer = Request.QueryString("id") Dim Linkname As String = DirectCast(e.Item.FindControl("myLinkName"), TextBox).Text Dim objBLDialog As myDialogClass = New myDialogClass() Try objBLDialog.UpdateMenuEntry(EntryId, Linkname) Catch ex As Exception Throw (ex) Finally objBLDialog = Nothing End Try End Sub ``` Permalänk: https://www.webforum.nu/p/1245946 ## #13 — maqe, 2004-01-08T23:17Z blir en liten knivig lösning det där eftersom varje rad inte har en ok knapp ... Permalänk: https://www.webforum.nu/p/1245956 ## #14 — maqe, 2004-01-08T23:44Z > **Dino skrev:** > > Ok, du måste ju veta vilken TextBox i DataListen som det gäller och då kan du gå via Datalistens ItemCommand event. I vb blir det väl nått sånt här. Detta förutsätter ju att varje rad i datalisten har en Ok knapp. > > > ``` > Private Sub Item_Command(sender As Object, e As DataListCommandEventArgs) Handles datalistnamn.ItemCommand > > Dim EntryId As Integer = Request.QueryString("id") > Dim Linkname As String = DirectCast(e.Item.FindControl("myLinkName"), TextBox).Text > > Dim objBLDialog As myDialogClass = New myDialogClass() > > Try > objBLDialog.UpdateMenuEntry(EntryId, Linkname) > Catch ex As Exception > Throw (ex) > Finally > objBLDialog = Nothing > End Try > > End Sub > ``` Jag gjorde såhär... ``` Sub Update_Command(ByVal sender As Object, ByVal e As DataListCommandEventArgs) '======================================= '## Uppdaterar vald menu i databasen ## Dim EntryId As Integer = Request.QueryString("id") Dim Link As TextBox = CType(e.Item.FindControl("myLinkName"), TextBox) Dim LinkName As String = Link.Text Dim objBLDialog As myDialogClass = New myDialogClass() Try objBLDialog.UpdateMenuEntry(EntryId, LinkName) objBLDialog = Nothing Catch ex As Exception Throw (ex) End Try End Sub ``` Har testat att lägga till page.registerstartupscript("close", "window.close();") för att stänga fönstret men det funkar inget vidare ... någon som har några tips? Permalänk: https://www.webforum.nu/p/1245964 ## #15 — maqe, 2004-01-09T00:00Z fel av mig ... page.registerstartupscript("close", "\window.close();\") funkar utmärkt ... Permalänk: https://www.webforum.nu/p/1245967 --- Tråden på webben: https://www.webforum.nu/amne/dotnet/94291-mer-problem