Balloon und Tabelle

  • VB.NET (ASP)

    Balloon und Tabelle

    Hallo Forum

    Ich habe auf einer Website eine SuFu, die mir eine Tabelle generiert. Die Tabelle wird korrekt angelegt und funktioniert eigentlich richtig.
    Nun wollte ich in der 3ten Zelle ein Feld einfügen, das mir einen Balloontip öffnet.
    Dieses funktioniert auch beim ersten Datensatz, bei allen folgenden wird der Text nicht in den Balloon geschrieben, sondern im Feld angehängt.

    Ich vermute, das Problem ist die Bezeichnung des Feldes, aber den Servertag kann ich nicht variabel gestalten, respektive weiss ich schlicht nicht, wie dies zu machen wäre.

    Unten der Quellcode der Seite:

    HTML-Quellcode

    1. <%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="Asuche.aspx.vb" Inherits="_Default" Title="Schweizerische Orchideen-Gesellschaft" AspCompat="True"%>
    2. <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
    3. <asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server"></asp:Content>
    4. <asp:Content ID="Content2" ContentPlaceHolderID="MainContent" Runat="Server">
    5. <asp:ScriptManager ID="ScriptManager1" runat="server"></asp:ScriptManager>
    6. <asp:BalloonPopupExtender ID="BalloonPopupExtender1" TargetControlID="Details" UseShadow="true" DisplayOnMouseOver="true" Position="TopLeft" BalloonPopupControlID="Material" BalloonStyle="Cloud" runat="server" CustomClassName="Balloon1" BalloonSize="Large" />
    7. <div id="MainWindow" style="position:relative; min-height: 600px;min-width: 600px; ">
    8. <style> .Balloon1 { height: 120px; width: 300px; }
    9. </style>
    10. <asp:Label ID="Label_Titel" runat="server" align="left" font-size="18px" Text="Auf dieser Seite können Sie nach bewerteten Pflanzen suchen. Bitte beachten Sie, das die Suche unter Umständen einen Moment dauern kann."></asp:Label><br /><br />
    11. <asp:Label ID="Label_Gattung" runat="server" align="left" font-size="16px" Text="Gattung"></asp:Label>
    12. <asp:DropDownList style="width:150px;" ID="DropDownListG" runat="server" font-size="16px" AppendDataBoundItems="True" AutoPostBack="True"></asp:DropDownList>
    13. <asp:Label ID="Label3" runat="server" align="left" font-size="16px" Text=" "></asp:Label>
    14. <asp:Label style="margin-left:20px;" ID="Label2" runat="server" align="left" font-size="16px" Text="Art / Grex"></asp:Label>
    15. <asp:DropDownList style="width:150px;" ID="DropDownListA" runat="server" font-size="16px" AppendDataBoundItems="True" AutoPostBack="True"></asp:DropDownList>
    16. <asp:Button style="margin-left:20px;" ID="btnSearch" runat="server" Text="Suche starten" /><br />
    17. <asp:Label ID="Filter_1" runat="server" align="left" font-size="16px" Visible="False" ></asp:Label>
    18. <asp:Label ID="Filter_2" runat="server" align="left" font-size="16px" Visible="False"></asp:Label><br />
    19. <asp:Label style="height:25px;" ID="result" runat="server" align="left" font-size="18px" Text=""></asp:Label><br />
    20. <!-- ab hier ist die alte Tabelle -->
    21. <table style="margin: 0px auto; " >
    22. <tr>
    23. <td style="width:150px; height:40px; font-size:18px; font-weight:bold ; text-align:center ;">Hauptbild</td>
    24. <td style="width:150px; height:40px; font-size:18px; font-weight:bold ; text-align:center ;">Blüte</td>
    25. <td style="width:400px; height:40px; font-size:18px; font-weight:bold ; text-align:left;">Details</td>
    26. </tr>
    27. <%
    28. 'Open Database
    29. If Filter_1.Text IsNot Nothing Or Filter_2.Text IsNot Nothing Then
    30. Dim filter1 As String = Filter_1.Text
    31. Dim filter2 As String = Filter_2.Text
    32. Dim bgr As Integer = 0
    33. Dim User_Number = CInt(Session("UserNumber"))
    34. Dim connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Server.MapPath("Bewertung.accdb")
    35. Dim Conn
    36. Conn = Server.CreateObject("ADODB.Connection")
    37. Conn.Open(connStr)
    38. Dim rs = Server.CreateObject("ADODB.RecordSet")
    39. rs.open("select * from MAB_SUCHE where (Gattung like '" & filter1 & "') and (Art_oder_Grex like '" & filter2 & "') ", Conn, 2, 2, 1)
    40. If rs.BOF And rs.EOF Then
    41. %>
    42. <tr><td colspan="3"></td></tr>
    43. <tr><td colspan="3" style="text-align:center ;">Tabelle Leer</td></tr>
    44. </table>
    45. <%
    46. Else
    47. While Not rs.EOF
    48. 'Labelt1.Text = (rs.fields.Item("Nr").value).ToString
    49. If System.IO.File.Exists(Server.MapPath("~") + "/Archiv/" + (rs.fields.Item("Nr").value).ToString + "h.jpg") Then Image1.ImageUrl = "../Archiv/" + (rs.fields.Item("Nr").value).ToString + "h.jpg"
    50. If System.IO.File.Exists(Server.MapPath("~") + "/Archiv/" + (rs.fields.Item("Nr").value).ToString + "v.jpg") Then Image1.ImageUrl = "../Archiv/" + (rs.fields.Item("Nr").value).ToString + "v.jpg"
    51. If System.IO.File.Exists(Server.MapPath("~") + "/Archiv/" + (rs.fields.Item("Nr").value).ToString + "d.jpg") Then Image2.ImageUrl = "../Archiv/" + (rs.fields.Item("Nr").value).ToString + "d.jpg"
    52. If System.IO.File.Exists(Server.MapPath("~") + "/Archiv/" + (rs.fields.Item("Nr").value).ToString + "dv.jpg") Then Image2.ImageUrl = "../Archiv/" + (rs.fields.Item("Nr").value).ToString + "dv.jpg"
    53. If rs.fields.Item("Gattung").value IsNot Nothing Then Labelt2.Text = (rs.fields.Item("Gattung").value).ToString
    54. If rs.fields.Item("Art_oder_Grex").value IsNot Nothing Then Labelt3.Text = (rs.fields.Item("Art_oder_Grex").value).ToString
    55. If rs.fields.Item("Varietaet").value IsNot Nothing Then Labelt4.Text = (rs.fields.Item("Varietaet").value).ToString
    56. If rs.fields.Item("Mutter").value IsNot Nothing Then Labelt5.Text = (rs.fields.Item("Mutter").value).ToString
    57. If rs.fields.Item("Vater").value IsNot Nothing Then Labelt6.Text = (rs.fields.Item("Vater").value).ToString
    58. If rs.fields.Item("Punkte").value IsNot Nothing Then Labelt7.Text = (rs.fields.Item("Punkte").value).ToString
    59. If rs.fields.Item("Award").value IsNot Nothing Then Labelt8.Text = (rs.fields.Item("Award").value).ToString
    60. If rs.fields.Item("Vorname").value IsNot Nothing Then Labelt9.Text = (rs.fields.Item("Vorname").value).ToString + " " + (rs.fields.Item("Name").value).ToString
    61. If rs.fields.Item("BemerkungText").value IsNot Nothing Then Detail2.Text = (rs.fields.Item("BemerkungText").value).ToString
    62. 'MsgBox(rs.fields.Item("Nr").value)
    63. %>
    64. <table style="margin: 0px auto; " border="1" frame="void">
    65. <tr >
    66. <td style="width:150px; height:40px; font-size:18px; font-weight:bold ; text-align:center ;"><asp:Image ID="Image1" runat="server" Width="140" ImageAlign="Middle" AlternateText="Kein Bild vorhanden" /></td>
    67. <td style="width:150px; height:40px; font-size:18px; font-weight:bold ; text-align:center ;"><asp:Image ID="Image2" runat="server" Width="140" ImageAlign="Middle" AlternateText="Kein Bild vorhanden" /></td>
    68. <td style="width:400px; height:40px; font-size:18px; font-weight:bold ; text-align:left;">
    69. <asp:Label ID="Gattung" text="Gattung / Art" runat="server" align="left" font-size="14px" Font-Bold="True" Width="100px"> </asp:Label> <asp:Label ID="Labelt2" runat="server" align="left" font-size="16px" Font-Bold="True"></asp:Label>
    70. <asp:Label style="margin-left :10px;" ID="Labelt3" runat="server" align="left" font-size="16px" Font-Bold="True" Font-Italic="True"></asp:Label><br />
    71. <asp:Label ID="Varietät" text="Varietät" runat="server" align="left" font-size="14px" Font-Bold="True" Width="100px"></asp:Label> <asp:Label ID="Labelt4" runat="server" align="left" font-size="16px"></asp:Label> <br />
    72. <asp:Label ID="Mutter" text="Mutter" runat="server" align="left" font-size="14px" Font-Bold="True" Width="100px"></asp:Label> <asp:Label ID="Labelt5" runat="server" align="left" font-size="16px"></asp:Label><br />
    73. <asp:Label ID="Vater" text="Vater" runat="server" align="left" font-size="14px" Font-Bold="True" Width="100px"></asp:Label> <asp:Label ID="Labelt6" runat="server" align="left" font-size="16px"></asp:Label><br />
    74. <asp:Label ID="Auszeichnung" text="Auszeichnung" runat="server" align="left" font-size="14px" Font-Bold="True" Width="100px"></asp:Label> <asp:Label ID="Labelt7" runat="server" align="left" font-size="16px"></asp:Label>
    75. <asp:Label style="margin-left :10px;" ID="Labelt8" runat="server" align="left" font-size="16px"></asp:Label><br />
    76. <asp:Label ID="Besitzer" text="Besitzer" runat="server" align="left" font-size="14px" Font-Bold="True" Width="100px"></asp:Label> <asp:Label ID="Labelt9" runat="server" align="left" font-size="16px"></asp:Label><br />
    77. <asp:Label style="margin-right :0px;" ID="Details" runat="server" align="left" font-size="14px" Text="Details zur Pflanze"></asp:Label>
    78. <!-- Details Balloon -->
    79. <asp:Panel id="Material" runat="server">
    80. <asp:Label ID="Detail1" runat="server" Text="Detail:" ></asp:Label>
    81. <asp:Label ID="Detail2" runat="server" Text=" - " ></asp:Label>
    82. </asp:Panel>
    83. <!-- Balloon -->
    84. </td>
    85. </tr>
    86. <%
    87. rs.movenext
    88. End While
    89. End If
    90. rs.close
    91. Conn.Close()
    92. rs = Nothing
    93. Conn = Nothing
    94. End If
    95. %>
    96. </table>
    97. <br />
    98. <br />
    99. </div>
    100. </asp:Content>


    Wer es in der Praxis ansehen will:

    breitenstein.ag/19992

    dort auf Bewertung -> Suche

    vielen Dank für eure Mithilfe

    *Topic verschoben*
    Am lernen...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()