请问如何在listbox中选中多个表名，提交后在grid中显示出结果？

Question

MultiSelect 属性
      返回或设置一个值，该值指示是否能够在 FileListBox 或 ListBox 控件中进行复选以及如何进行复选。在运行时是只读的。语法object.MultiSelectobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。设置值MultiSelect 属性设置值是：设置值 描述 
0 （缺省值）不允许复选。 
1 简单复选。鼠标单击或按下 SPACEBAR （空格键）在列表中选中或取消选中项。（箭头键移动焦点。） 
2 扩展复选。按下 SHIFT 并单击鼠标或按下 SHIFT 以及一个箭头键（上箭头、下箭头、左箭头、和右箭头）将在以前选中项的基础上扩展选择到当前选中项。按下 CTRL 并单击鼠标来在列表中选中或取消选中项。 

Answer 1

MultiSelect 属性示例
本例用屏幕字体的名字填充 ListBox 控件，并说明 MultiSelect 属性是如何影响 ListBox 行为的。要试用此例，在窗体上创建两个 ListBox 控件以及一个 CommandButton 控件。在第一个 ListBox 中，将 MultiSelect 属性设置为 1 或 2。在运行时期，在第一个 ListBox 中选择几个项，然后单击 CommandButton。 所有被选的项都显示在第二个 ListBox 中。使用不同的 MultiSelect 属性设置值来运行几次这个例子。将下面的代码粘贴到声明部分，然后按 F5 键 以运行这个程序。Private Sub Form_Load ()
   Dim I   ' 声明变量。
   ' 用屏幕字体名字填充列表框。
   For I = 0 To Screen.FontCount - 1
      List1.AddItem Screen.Fonts(I)
   Next I
End SubPrivate Sub Command1_Click ()
   Dim I   ' 声明变量。
   ' 清除列表中所有的项。
   List2.Clear
   ' 如果一个项被选中，那么将它加入到 List2。
   For I = 0 To List1.ListCount - 1
      If List1.Selected(I) Then
         List2.AddItem List1.List(I)
      End If
   Next I
End Sub

Answer 2

虽然看不明白你的问题，不过按我的想法，可能以下程序会有点用Dim i As Integer
Dim str As String
str = ""
For i = 0 To List1.ListCount - 1
    If List1.Selected(i) = True Then
        str = str & List1.List(i) & ","
    End If
Next
str = Left(str, Len(str) - 1)
sqlstr = "select * from " & strlist1的MultiSelect属性为1

Answer 3

只需要人民币20元，你就可以获得本灌水机的程序和Visual C＋＋源代码，并获得永久性技术支持。还等什么？灌水等着你！就在今夜！元宵佳节！(可怜我信誉)

Answer 4

baoxiang(包香)还是你明白虽然我没试过，分数还是给你