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