如何把COMBO1控件里的LIST一月、二月、三月、四月与DB1里的F1表、F2表、F3表。。。。对应打开呢？
如何设置呢？

我的代码很简单：

Private Sub Combo1_Change()

if combo1.additem="一月" then
Rst.CursorLocation = adUseClient
Rst.Open "Select * From lrb", conn, adOpenKeyset, adLockPessimistic
If Rst.RecordCount > 0 Then

Text1(1).Text = Rst.Fields("hhh46").Value
.....
.....
end if

我只在COMBO1控件里的LIST属性设置为：一月、二月、三月、四月，
其余没有做更动了！
执行后，没有反应！

你把F1表体现在哪里了？

Private Sub Combo1_Change()
If Combo1.AddItem = "一月" Then
Rst.CursorLocation = adUseClient
Rst.Open "Select * From f1", conn, adOpenKeyset, adLockPessimistic

If Rst.RecordCount > 0 Then
n.Text = Rst.Fields("n").Value & ""

Text1(0).Text = Rst.Fields("zy1").Value & ""
Text1(1).Text = Rst.Fields("zy2").Value & ""
...
...

Private Sub Form_Load()

Dim ConString As String
ConString = "Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info = False;" _
& "Data Source =" & App.Path & "\db1.mdb;Jet OleDb:"

Set conn = CreateObject("ADODB.Connection")
With conn
.ConnectionString = ConString
.Open
End With


End Sub


我只在COMBO1控件里的LIST属性设置为：一月、二月、三月、四月，
其余没有做更动了！
执行后，没有反应！

Combo怎么得到内容的？Text属性吗？对Text做判断即可

如果可以得到选项Index就直接&进去。

仅仅在它的list里添加的“一月”、“二月”。。。

其余未作更改！
执行时，Combo1下拉框便自动出来这12个月！

ItemData属性没有动！为空！

我在想你是不是从来都不自己思考的

看了你很多帖子了，所以才这么说

你觉得你什么方法都想不到么？

在提供一个思路，从长字符串中查找取得标号

Option Explicit
Dim arrMonth(12) As String

Private Sub Command1_Click()
Dim intListIndex As Integer
Dim strMonth As String

intListIndex = Combo1.ListIndex

strMonth = arrMonth(intListIndex)

'MsgBox strMonth

'declare rs As Recordset,con As Connection Objects
'rs.Open "SELECT xxx FROM " & strMonth ,con, ,
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To UBound(arrMonth) - 1
arrMonth(i) = "F" & (i + 1) & "表"
Combo1.AddItem arrMonth(i)
Next
End Sub

没有买到合适的书，书上面介绍太过于简单了！

许多控件的属性的名称、意义、设置介绍得很简单，所以还是不甚了了！

还有，ACCESS数据库的关系这节内容，介绍得也非常简单！

DataGrid与Adoc之间的调用！我是经过了无数的调试才找到了正确的属性设置！书上根本就看不见！

今天书在单位，没有带回来，

本来，Combo1的控件使用应该不难解决的！

Combo1的Text、List、ItemData这三个属性怎么使用？我不太清楚！Combo1。AddItem呢？

我以前做过Combo1。List男，女，0，1

用A