你可以将市县代码和名称用外部数据源作一个数据窗口,显示名称,然后保存的是代码,
1、从表中取出字段市县代码、市县名称,做成没有列标题的数据窗口(用于作下拉窗口)
2、new-->tabular-->External
3、在Define Result Set窗口中输入市县代码(ColName),及类型、长度
4、next-->next-->finish
5、将窗口做成跟1一样的格式,然后将col设置为DropDownDW,将DataWindow设置为1中所作的数据窗口,设置DisPlay为名称,Data为代码。
6、在窗口中添加DataWindow控件(dw_sx),dwObject为5中所建的外部数据源窗口
7、在窗口的Open事件中写上代码
DataWindowChild dwc
If dw_sx.GetChild("ColName",dwc) > 0 Then //ColName为市县代码
dwc.SetTransObject(SQLCA)
dwc.Retrieve()
dw_sx.InsertRow(0)
End If