我这里没有VB 只能给你粗略的说一下
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名申请、雅安服务器托管、营销软件、网站建设、桐柏网站维护、网站推广。
利用combo控件的change事件
或者list控件的click事件
来判断datagrid的dataSouce
假如你使用的是数据绑定的话
当然如果数据库不是很庞大(比如几万条甚至几百万条记录)建议你使用ado来写入
那么就更改ADODB.Connect连接的数据库就可以了
Dim myX()
Dim n As Long
Dim myMin
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1.Text
n = n + 1
ReDim Preserve myX(n)
myX(n - 1) = Combo1.Text
If n = 1 Then myMin = Val(Combo1.Text)
If Val(Combo1.Text) myMin Then
myMin = Val(Combo1.Text)
End If
Combo1.Text = ""
End If
End Sub
Private Sub Command1_Click()
Dim x0
Dim i As Long
Dim myStr As String
myStr = Join(myX, ",")
If LenB(myStr) 0 Then
x0 = myX(0)
myX(0) = myMin
Debug.Print x0, myMin, UBound(myX)
For i = 1 To UBound(myX) - 1
If Val(myX(i)) = Val(myMin) Then
myX(i) = x0
Exit For
End If
Next i
List1.Clear
For i = 0 To UBound(myX) - 1
List1.AddItem myX(i)
Next i
End If
End Sub
Private Sub Form_Load()
Combo1.Text = ""
n = 0List1.Clear
myMin = 0
End Sub
选择字体颜色的代码如下：
Private Sub Combo2_Click()
Select Case Combo2.ListIndex
Case 0
Text1.ForeColor = vbRed
Case 1
Text1.ForeColor = vbBlue
Case 2
Text1.ForeColor = HC000C0
Case 3
Text1.ForeColor = HFF00
End Select
End Sub
Private Sub Form_Load()
Combo2.List(0) = "红色"
Combo2.List(1) = "蓝色"
Combo2.List(2) = "紫色"
Combo2.List(3) = "绿色"
End Sub
在combobox的click事件中加入Select case结构可以改变颜色。
Excel在日常使用中，经常使用特定的几个条件或选择项就可以实现跳转到特定的下一步操作或实现其它用途，下面用VB组合框设置简单组合框：
1、菜单栏选依次选择视图-工具栏-控件工具箱。
2、在控件工具箱里拖出组合框。
3、双击控件进入VB编辑器，并录入图中语句。
4、按运行子进程在绿色三角键并创建宏名称。
5、返回表格界面查看结果。设置简单组合框成功。
注意事项：
在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
dim sql as string="SELECT * from tableA"
dim dtable as new datatable
SqlCmd = New OleDbCommand(sql, SqlConn)
SqlApt = New OleDbDataAdapter(sql )
SqlApt.Fill(dtable)
combobox1.datasource=dtable