• 复制源数据源中的一个或几个数据集到其他数据源

Dim objDestDS As soDataSource
Dim objSourceDS As soDataSource
Dim objDataSet As soDataset
Dim strDtName As String
Dim i As Integer, j As Integer

Set objSourceDS = Form1.SuperWorkspace1.Datasources.Item(cmbSourceDS.Text)
Set objDestDS = Form1.SuperWorkspace1.Datasources.Item(cmbDestDS.Text)

For i = 0 To lstDestDt.ListCount - 1
    lstDestDt.ListIndex = i
    strDtName = Trim$(lstDestDt.Text)
    If (objDestDS.IsAvailableDatasetName(strDtName)) = False Then   '数据集名合法判断
        chkRenameCopy.Value = 1
    End If
    If chkRenameCopy.Value = 1 Then '改名复制,进行改名同名判断
        Do
            strDtName = Trim$(InputBox("目标数据源中有重名数据集名或数据集名" & vbCrLf & "非法,请输入新的数据集名:" & vbCrLf, , strDtName))
            If (objDestDS.IsAvailableDatasetName(strDtName)) Then '数据集名合法判断
                Exit Do
            End If
        Loop
    End If
    Set objDataSet = objDestDS.CopyDataset(objSourceDS.Datasets.Item(lstDestDt.Text), strDtName)
Next

• 往相同类型的数据集中追加数据

Dim objDS As soDataSource
Dim objSourceDtVector As soDatasetVector
Dim objDestDtVector As soDatasetVector
Dim objRecordset As soRecordset
Dim bResult As Boolean
Set objDS = Form1.SuperWorkspace1.Datasources.Item(cmbSourceDsName.Text)  '取源矢量数据集
Set objSourceDtVector = objDS.Datasets.Item(cmbSourceDtName.Text)         '取要追加的矢量数据集
Set objDS = Form1.SuperWorkspace1.Datasources.Item(cmbDsName.Text)        
If objDS.Datasets.Item(cmbDtName.Text).Vector = False Then
   MsgBox "所选数据集不是矢量数据集", vbInformation
   Exit Sub
End If
Set objDestDtVector = objDS.Datasets.Item(cmbDtName.Text)
objDestDtVector.Open
Set objRecordset = objDestDtVector.Query("", True)
bResult = objSourceDtVector.Append(objRecordset)       '追加

• 数据集管理

    实际上在SuperMap控件上您可以设置图层的"可见性"、"可选择性"、"可编辑性"、"可捕捉性"、"图层风格"等属性，还可以从SuperMap上移除图层及改变图层的索引号等操作。

Dim objLayers As solayers
Dim i As Integer, iLayerIndex As Integer
Dim nlistItemCount As Long
Dim Style as soStyle
Set objLayers = Form1.SuperMap1.layers
nlistItemCount = Me.lvLayersInfo.ListItems.Count '图层数

设置为可见：   objLayers.Item(i).Visible = True

设置为可选择： objLayers.Item(i).Selectable = True

设置为可编辑：   objLayers.SetEditableLayer (iLayerIndex)

设置为可捕捉：   objLayers.Item(i).Snapable = True

移除图层:     objLayers.Remove 1, 1  

设置风格，显示风格对话框：

    Set Style = Map.layers.Item(nLayerIndex).Style
    Dim nDimension As Long
    If Map.layers.Item(nLayerIndex).Dataset.Vector Then
         nDimension = Map.layers.Item(nLayerIndex).Dataset.Dimension
         Map.ShowStylePicker Style, nDimension
    End If

移到最顶层： objLayers.MoveTop nIndex        'nIndex 为移动的图层索引号

移到最底层： objLayers.MoveBotton nIndex     'nIndex 为移动的图层索引号

上移一层：   objLayers.MoveUp nIndex        'nIndex 为移动的图层索引号,不在最顶层

下移一层：   objLayers.MoveDown nIndex       'nIndex 为移动的图层索引号，不能在最底层