AfterLoad事件
Dim cs() As String = {"第一列","第二列","第三列"}For Each c As String In cs Tables("表A").Cols(c).combolist = "..."Next