
<telerik:AjaxSetting AjaxControlID="combo1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="combo2" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="combo2"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="combo1" /> </UpdatedControls> </telerik:AjaxSetting> <telerik:AjaxSetting AjaxControlID="RadAjaxPanel1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadAjaxPanel1" /> </UpdatedControls> </telerik:AjaxSetting>
GridBoundColumn gridColumn = new GridBoundColumn();
RadGrid1.MasterTableView.Columns.Add(gridColumn);
gridColumn.DataFormatString =
"<nobr>{0}</nobr>";
gridColumn.DataField = dataColumn.ColumnName;
gridColumn.HeaderText = dataColumn.ColumnName;
gridColumn.HeaderStyle.Width =
Unit.Pixel(125);
gridColumn.ItemStyle.Width =
Unit.Pixel(125);
gridColumn.FooterStyle.Width =
Unit.Pixel(125);
<telerik:RadComboBox runat="server" ID="RadComboBox1" Height="400px" Width="750px" MarkFirstMatch="true" DataSourceID="SessionDataSource1" EnableLoadOnDemand="true" OnItemDataBound="RadComboBox1_ItemDataBound" ShowMoreResultsBox="true" EnableVirtualScrolling="true" ItemsPerRequest="20" EnableAutomaticLoadOnDemand="True" DataTextField="AssetDescription" DataValueField="AssetDescription" style="margin-bottom: 0px" AutoPostBack="true" OnSelectedIndexChanged="RadComboBox1_IndexChanged" HighlightTemplatedItems="true" >
Protected Sub RadAsyncUpload1_FileUploaded(ByVal sender As Object, ByVal e As Telerik.Web.UI.FileUploadedEventArgs) Handles RadAsyncUpload1.FileUploaded
Dim counter As Integer = Session("counter")
Dim newrow As DataRow = dt.NewRow
Dim buffer As Byte() = New Byte(e.File.ContentLength - 1) {}
If e.IsValid Then
S3Conn = New AWSAuthConnection(S3AWSAccessKeyId, S3SecretAccessKeyId)
counter = counter + 1
If Not S3Conn Is Nothing Then
S3Conn.createBucket(S3Bucket, Nothing)
Dim metadata As SortedList = New SortedList()
metadata.Add("filename", e.File.FileName)
Dim s3key As String = "test/" & Session("dbid") & "_" & Session("recid") & "_" & CStr(counter)
Dim obj As S3Object = New S3Object(buffer, metadata)
Dim headers As New SortedList
headers.Add("Content-Type", buffer)
headers.Add("x-amz-acl", "public-read")
S3Conn.put(S3Bucket, s3key, obj, headers)
End If
Session("counter") = counter
S3Conn = Nothing
End If
End Sub