companynameactions.vb

来自「讲解visual studio的应用」· VB 代码 · 共 20 行

Public Class CompanyNameActions

    Private Sub InsertNames_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles InsertNames.Click
        If NameList.SelectedItems.Count > 0 Then
            For Each NameToInsert As String In NameList.SelectedItems
                With Globals.ThisDocument.Tables(1)
                    .Rows.Add()
                    .Rows(.Rows.Count).Cells(1).Range.Text = NameToInsert
                    .Rows(.Rows.Count).Cells(2).Range.Text = "Put information here"
                End With
            Next
        Else
            MessageBox.Show("You must first select an entry in the list")
            NameList.Focus()
        End If
    End Sub

End Class