标题：怪，代码没有错呀，怎么又跳出一个出错的界面
AfterOpenProject：
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("营销部")
此主题相关图片如下：aq.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:含sql备份.rar |
我是按照昨天论坛的 狐友 的操作步骤进行备份的，在另一电脑还原怎么弄 我也不知道啊
不用看了，你的Afteropenproject中的代码：
With yxb
.Connection Name= "营销部"
.CommandText = "select distinct 营销部 from {营销部} "
yxbdata = .ExecuteReader
End With
你有名为营销部的外部数据源吗？我只看到你有两个数据源，一个行政区域，一个销售系统。
，流汗中
我是按照昨天论坛的 狐友 的操作步骤进行备份的，在另一电脑还原怎么弄 我也不知道啊
1、右键"数据库" 左键"数据库"
此主题相关图片如下：1.jpg
2、输入新的数据库名 → 选择“原设备”→点击"…"按钮
此主题相关图片如下：2.jpg
3、点击“添加” 找到你的备份文件。 这里不截图的。注意你的备份没有.bak扩展名，所以找文件的时候文件类型要选"所有文件"
此主题相关图片如下：3.jpg
还有3张图 不知道怎么传不上来了