主题：生成临时表 怎么样改一下能做成生成表

求解

If e.Form.Controls("CheckedComboBox1").Value <> Nothing Then
    Dim dtb As New DataTableBuilder("统计")
    dtb.AddDef("姓名", Gettype(String), 32)
    For Each s As String In e.Form.Controls("CheckedComboBox1").Value.Split(",")
        dtb.AddDef(s, Gettype(String), 32)
    Next
    dtb.Build()
    MainTable= Tables("统计")
End If

 

此主题相关图片如下：qq截图20140312094502.png