Hi Liste -
habe ein seltsames Problem mit der FTB unter dem IE (unter Mozilla funzt es).
Und zwar folgendes:
Beim ersten laden der Seite mit der FTB bekomme ich einen unbekannten
Javascriptfehler angezeigt.
Wenn ich jetzt den Text in der FTB ändere und auf den speichern-Button drücke,
dann erscheint in
der FTB wieder der ursprüngliche Text, die Funktion des Speicherbuttons wurde
aber ausgeführt (sehe
ich an einer Label-Ausgabe). Und von nun an funzt die FTB auch wunderbar.
Habe schon mal versuch den Text wegzulassen, ob er sich daran vielleicht stört.
Aber es ist egal,
ob die FTB vorher leer ist oder mit Text gefüllt, sie funzt erst nach dem
ersten Postback und ich
habe keinen Plan wieso ...
Mein Code ist jetzt auch nicht abenteuerlich (tbSite ist die FTB):
'OnInit
Sub InitializeComponent()
AddHandler Me.Load, AddressOf Me.page_load
AddHandler Me.tbSite.SaveClick, AddressOf OnSaveClick
End Sub
Protected Overrides Sub OnInit(ByVal e As EventArgs)
InitializeComponent()
MyBase.OnInit(e)
End Sub
Sub page_load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
MyBase.Load
Response.Expires = 0
Response.AddHeader("Pragma", "no-cache")
Response.AddHeader("cache-control", "no-store")
Dim siteID As Integer = CType(Request("site"), Integer)
lbErrorMessage.Text = ""
If Not Page.IsPostBack Then
Dim sqlConnection As SqlConn = New SqlConn()
Dim filterExp, sortExp As String
filterExp = ""
sortExp = ""
Dim drArray As DataRow()
drArray = sqlConnection.select_Site(siteID). _
Select(filterExp, sortExp,
DataViewRowState.CurrentRows)
If drArray.Length > 0 Then
tbSite.Text = CType(drArray(0)("content"), String)
End If
End If
End Sub
'Änderungen übernehmen
Protected Sub OnSaveClick(ByVal sender As Object, ByVal e As
System.EventArgs)
Try
Dim siteInhalt As String
Dim siteID As Integer = CType(Request("site"), Integer)
siteInhalt = tbSite.Text
Dim connectionString As New SqlConn
connectionString.update_Site(siteID, siteInhalt)
System.Threading.Thread.Sleep(1000)
lbErrorMessage.Text = "Änderungen erfolgreich
übernommen."
Catch ex As Exception
lbErrorMessage.Text = "Fehler beim Anlegen: " & ex.ToString()
End Try
End Sub