建议楼主用DBCombo控件代替Combo控件方法如下:选择菜单"工程|部件",选中"Microsfot Data Bound List Controls 6.0",然后在窗体画一个DBCombo控件,将该控件的Style属性设置为2,RowSource属性设置为Data1,ListField属性设置为工资等级,BoundColumn属性设置为工资标准.然后编写以下DBCombo1的单击事件代码:Private Sub DBCombo1_Click(Area As Integer)Text1.Text = DBCombo1.BoundTextEnd Sub说明:直接用Combo控件也可以实现上述功能,但麻烦很多,建议用DBC...
|