主题：怪，代码没有错呀，怎么又跳出一个出错的界面

Dim shensi As new SQLCommand
Dim yxb As new SQLCommand
Dim shensidata  As datatable
Dim yxbdata As datatable
        With shensi
            .C
            .CommandText = "select DISTINCT 省市 from {行政区域}"
            shensidata = .ExecuteReader
        End With
With yxb
 .C
 .CommandText = "select distinct 营销部 from {营销部} "
 yxbdata = .ExecuteReader
End With
Tables("营销部").Cols("市场片区_省市").ComboList = shensidata.GetComboListString("省市")
Tables("客户档案").Cols("所属_省市").ComboList = shensidata.GetComboListString("省市")
Tables("客户档案").Cols("所属_营销部").ComboList = yxbdata.GetComboListString("营销部")

我是按照昨天论坛的　狐友　的操作步骤进行备份的，在另一电脑还原怎么弄　我也不知道啊

不用看了，你的Afteropenproject中的代码：

With yxb
    .Connection Name= "营销部"
    .CommandText = "select distinct 营销部 from {营销部} "
    yxbdata = .ExecuteReader
End With

你有名为营销部的外部数据源吗？我只看到你有两个数据源，一个行政区域，一个销售系统。

1、右键"数据库"  左键"数据库"

此主题相关图片如下：1.jpg

2、输入新的数据库名 → 选择“原设备”→点击"…"按钮

此主题相关图片如下：2.jpg

3、点击“添加” 找到你的备份文件。  这里不截图的。注意你的备份没有.bak扩展名，所以找文件的时候文件类型要选"所有文件"

此主题相关图片如下：3.jpg

还有3张图  不知道怎么传不上来了