Advertisement
Advertisement
| 06.06.2008 at 09:10AM PDT, ID: 23464226 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: |
Private Sub Page_OnLoad() Handles Me.Load
Dim objbuListTable As New ServerDataSetTableAdapters.BUTableAdapter
' get backup data
buList_query = objbuListTable.GetBUListDataByServerName(serverName)
iCounter = sDetail_buList.Items.Count
If iCounter = 0 Then
For Each item In buList_query
sDetail_buList.Items.Add(New ListItem(item.str_Directory, item.ItemId))
Next
End If
buList_query = Nothing
End Sub
Protected Sub sDetail_editButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles sDetail_editButton.Click
updateBul_pnl.Visible = True
End Sub
Protected Sub bul_AddItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bul_AddItem.Click
Dim objBUTable As New ServerDataSetTableAdapters.BUTableAdapter
objBUTable.InsertBUListItem(sDetail_sName.Text, bul_ItemToAdd.Text)
End Sub
|