超图教程-中级SmoTutorialII.pdf .......... Private Sub cmbDatasources_Click() Dim objDatasources As soDataSources '数据源集合对象 Dim objDatasource As soDataSource '数据源对象 Dim strDatasourceAlias As String '数据源别名 Dim objDatasets As soDatasets '数据集集合 Dim objDataset As soDataset '数据集 Dim i As Integer '循环变量 '在数据源下拉组合框中获取数据源的别名 strDatasourceAlias = cmbDatasources.Text ..................