Мдя... Очередная попытка применить это
Модератор: ругаться на форуме нельзя не удалась...
Пришлось написать две строчки за 10 минут. Вывел на форму как хотел. Как захотел - отфарматировал. Работает великолепно. С минимумом кода. Всегда поправить будет можно.
Вообще не понимаю - для чего это РепортСервер нужен. Провозился часа три - четыре.
НИЧЕГО ВООБЩЕ НЕ СМОГ ИЗ ЭТОГО ВЫДАВИТЬ.
А требовалось, чтоб он всего-то навсего вот такой текст родил. Ну как бы автоматически, без программирования.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Button ID="Button2" runat="server" Text="<" />
<asp:Label ID="Key" runat="server" Font-Bold="True"></asp:Label>
<asp:Button ID="Button1" runat="server" Text=">" />
<asp:HiddenField ID="RowNumber" runat="server" />
<table>
<tr>
<td align=left valign=top >
<asp:Label ID="Source" runat="server" Width="600px"></asp:Label></td>
<td align=left valign=top >
<asp:Label ID="Target" runat="server" Width="600px"></asp:Label></td>
</tr>
</table>
</div>
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:Ghost_SQLServer_ConnectionStrings %>"
SelectCommand="Select [Key],
cast([Content] as varchar(max)) as [Content],
[Source]
from Buffer where source IS NOT NULL">
</asp:SqlDataSource>
</form>
</body>
</html>
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Partial Class biletik_TST
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
RowNumber.Value = 0
Call Show()
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
RowNumber.Value += 1
Call Show()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
RowNumber.Value -= 1
Call Show()
End Sub
Private Sub Show()
Dim DV1 As Data.DataView = SqlDataSource1.Select(New DataSourceSelectArguments)
Key.Text = DV1(RowNumber.Value)("Key")
Source.Text = Server.HtmlEncode(DV1(RowNumber.Value)("Source")).Replace(Convert.ToChar( 10 ), "<br>")
Target.Text = Server.HtmlEncode(DV1(RowNumber.Value)("Content")).Replace(Convert.ToChar( 10 ), "<br>")
End Sub
End Class
Ну надежда ж умирает последней. Ну вдруг.. Вдруг...
Никаких вдруг - MS есть MS. Везде где было можно допустить одну Ашипку - на всякий случай ДВЕ сделано.
