Страница 459 из 476 и поместить в элементы Label: lblTitle.Text - "<CENTER>" 6 DSPageData.Tables("Auctionltem"). _ Rows(0).Item("ItemName") & "</Center>" lblFullInfo.Text - "<Г>Дата начала торгов:</I>" ? DSPageData.Tables("Auctionltem"). Rows(0).Item("OpenDate") ? "<BR><BR>" _ & "<1>Дата завершения торгов:</I>" _ ? DSPageData.Tables("Auctionltem"). Rows(0).Item("CloseDate") ? "<BR><BR>" _ ? "<1>Начальная цена:</I>" & FormatCurrency(DSPageData.Tables("Auctionltem"). _ Rows(0) .Item("MinimumBid")) ? "<BRXBR>" _ ? "<1>Минимальная надбавка:</I>" ? FormatCurrency(DSPageData.Tables("Auctionltem"). Rows(0) .Item("Bidlncrement")) ? "<BRXBR>" _ St "<1>Описание:</I>" _ ? DSPageData.Tables("Auctionltem"). _ Rows(0) .Item("FullDescription") & "<BRXBR>" Далее следует сформировать «историю» торгов: DBCommand - New OleDbDataAdapter ("Select BidderName as [Участник], " ? "Convert(varchar(30), WhenPlaced, 100) " _ ? "as [Дата заявки], " ? "•$' + Convert(varchar(30), BidAmount, 1) " _ ? "as [Сумма заявки] " _ .? "From AuctionltemBids " ? "Inner Join Bidders On AuctionltemBids.BidderlD » " ? "Bidders.BidderID Where AuctionltemID - " _ ? Request.QueryString("AuctionltemID") ? " Order By WhenPlaced", DBConn) DBCommand.Fill(DSPageData, "BidData") и связать с этими данными элемент управления DataGrid: dgBids.DataSource « DSPageData.Tables("BidData").DefaultView dgBids.D ataBind Нам также необходимо извлечь самую высокую на настоящий момент сумму, предлагаемую за данный лот: DBCommand - New OleDbDataAdapter ("Select Max(BidAmount) as MaxBid " ? "From AuctionltemBids " _ ? "Where AuctionltemID -? Request.QueryString("AuctionltemID") _ , DBConn) DBCommand.Fill(DSPageData, "CurrentBid") и использовать ее для определения следующей минимальной суммы: txtBidAmount.Text - DSPageData.Tables("Auctionltem"). Rows(0).Item("Bidlncrement") +
|