VB中如何combo控件进行赋值
时间:2011-09-20
来源:互联网
我在做一个资料管理程序
里面有这样的一个功能,
就是进出货不是有客户的名称和客户货号(这些都是提前输好的,已经存在数据里)
我现在就是想利用两个COMBO控件,把客户名称和相应的客户货号读出来
例如第一个COMBO控件选择了广东省,第二个COMBO控件就出现了广东省的各个城市
第一个COMBO控件选择了北京省,第二个COMBO控件就出现了北京省的各个城市这样的功能
上面的城市只是例子,这些到时是直接从数据库读取的
我想要的是,怎么从数据库中读客户名称和相应的客户货号,然后再赋值到COMBO控件里面
求代码或实例
里面有这样的一个功能,
就是进出货不是有客户的名称和客户货号(这些都是提前输好的,已经存在数据里)
我现在就是想利用两个COMBO控件,把客户名称和相应的客户货号读出来
例如第一个COMBO控件选择了广东省,第二个COMBO控件就出现了广东省的各个城市
第一个COMBO控件选择了北京省,第二个COMBO控件就出现了北京省的各个城市这样的功能
上面的城市只是例子,这些到时是直接从数据库读取的
我想要的是,怎么从数据库中读客户名称和相应的客户货号,然后再赋值到COMBO控件里面
求代码或实例
作者: yujianron 发布时间: 2011-09-20
1、创建一个数据库,包含省、市
2、查询数据库填写COMBO控件
2、查询数据库填写COMBO控件
作者: Veron_04 发布时间: 2011-09-20
http://download.csdn.net/source/1498324
作者: Veron_04 发布时间: 2011-09-20
以下Code供你參考,自己改改吧;
Private Sub SkunoSettingCommand_Click() '根據“機種”調用表"NameInfo"料號信息
Dim sql As String
sql = "select *from NameInfo where Name= '" & NameCombo.Text & "'"
Set rs = TransactSQL(sql)
If iflag = 1 Then
If rs.EOF = False Then
SkunoCombo.Text = rs.Fields("Skuno")
Barcode.SetFocus
End If
End If
End Sub
Private Sub SkunoSettingCommand_Click() '根據“機種”調用表"NameInfo"料號信息
Dim sql As String
sql = "select *from NameInfo where Name= '" & NameCombo.Text & "'"
Set rs = TransactSQL(sql)
If iflag = 1 Then
If rs.EOF = False Then
SkunoCombo.Text = rs.Fields("Skuno")
Barcode.SetFocus
End If
End If
End Sub
作者: golden8510 发布时间: 2011-09-20
引用 1 楼 veron_04 的回复:
1、创建一个数据库,包含省、市
2、查询数据库填写COMBO控件
1、创建一个数据库,包含省、市
2、查询数据库填写COMBO控件
请问具体代码要怎么写
从数据库读出数据我知道
但是要怎么把读出来的数据放在combo里面
作者: yujianron 发布时间: 2011-09-20
引用 4 楼 yujianron 的回复:
引用 1 楼 veron_04 的回复:
1、创建一个数据库,包含省、市
2、查询数据库填写COMBO控件
请问具体代码要怎么写
从数据库读出数据我知道
但是要怎么把读出来的数据放在combo里面
引用 1 楼 veron_04 的回复:
1、创建一个数据库,包含省、市
2、查询数据库填写COMBO控件
请问具体代码要怎么写
从数据库读出数据我知道
但是要怎么把读出来的数据放在combo里面
看三楼的例子对照自己的改
作者: sunjs12345 发布时间: 2011-09-21
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28