解决combo和text相互联动，combo内容变化，text内容也变化（二者内容不同） - 编程论坛

#2

wds12018-05-17 15:03

Private Sub Combo1_Click()
Select Case combo1.text
case "内容1"
    text1.text=combo1.text
case "内容2"
    text2.text=combo1.text
  end select
end sub

#3

qwer7892018-05-17 20:10

回复 2楼 wds1

刚刚试了一下不可以，或许我没有表达清楚。类型的内容链接combo1，征兆原因的内容链接text1 和text2，他们三者内容不同。是一一对应的关系。下拉combo1（类型）中第一项内容，text1（征兆）和text2（原因）会自动显示出各自第一项内容。非常需要你的帮助

#4

ZHRXJR2018-05-17 21:30

需要使用Combo1的单击事件，下面代码可以解决，需要修改数据库名与数据表名：

程序代码：

Private Sub Combo1_Click()
Text1.Text = ""
Text2.Text = ""
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"   '修改为你的数据库名称
Adodc1.RecordSource = "select * from 数据表名 Where 类型='" & Combo1.Text & "'"   '修改为你的数据表名称
Adodc1.Refresh
    Text1.Text = Adodc1.Recordset.Fields("征兆")   '这个就不需要解释了吧
    Text2.Text = Adodc1.Recordset.Fields("原因")   '这个就不需要解释了吧
Adodc1.Recordset.Close
End Sub

Private Sub Form_Load()
Combo1.Text = ""
Combo1.Clear
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"   '修改为你的数据库名称
Adodc1.RecordSource = "select * from 数据表名"   '修改为你的数据表名称
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
    Combo1.AddItem Adodc1.Recordset.Fields("类型")   '根据数据表的记录添加Combo1的类型值
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Close
End Sub

#5

qwer7892018-05-18 10:02

回复 4楼 ZHRXJR

首先谢谢您的指导。将代码运行之后，界面提醒form中的adodc1.refresh出错。自己百度之后修改记录源改为1-text，再次运行combo不显示文字，界面提醒“field not Updtable,bound property name:text,field name:故障类型”。自己百度找了好久都没找到相关的解决方法，只能再次求助你的帮助。

#6

ZHRXJR2018-05-18 10:27

回复 5楼 qwer789

“界面提醒form中的adodc1.refresh出错”说明你的连接语句有问题，这个代码我在其他程序中使用过多少次，没有任何问题的。关键是：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False" '修改为你的数据库名称
Adodc1.RecordSource = "select * from 数据表名" '修改为你的数据表名称
这二个语句，Microsoft.Jet.OLEDB.4.0;是连接2003以下的Access数据库的， & App.Path & 是说明数据库名.mdb 数据库在你的程序根目录。
select * from 数据表名是连接数据表的SQL语句。
由于不知道你的数据库与数据表的名称，在这里用数据库名、数据表名代替，你修改只能修改这二个名称，不知道为什么出现text?

注意：这个是直接连接数据库的，不需要数据源。

[此贴子已经被作者于2018-5-18 10:31编辑过]

#7

qwer7892018-05-18 11:22

回复 6楼 ZHRXJR

1-text是表示记录源1-adcmtext 忘记了前面几个字母。运行后combo显示下拉列的内容，点击列表框的任意一项，就处出现“field not Updtable,bound property name:text,field name:故障类型”的提醒。返回看数据库时，清空了数据表中类型这一列的内容呢？，没有实现三者一一对应的关系（他们在一个表中，使用不了表间关系）

#8

ZHRXJR2018-05-18 20:48

以下是引用qwer789在2018-5-18 11:22:37的发言：

1-text是表示记录源1-adcmtext 忘记了前面几个字母。运行后combo显示下拉列的内容，点击列表框的任意一项，就处出现“field not Updtable,bound property name:text,field name:故障类型”的提醒。返回看数据库时，清空了数据表中类型这一列的内容呢？，没有实现三者一一对应的关系（他们在一个表中，使用不了表间关系）

唉，怎么就不明白？你将你的数据库发给我，我给你调试。
是扩展名为mdb的文件！！

#9

qwer7892018-05-19 08:24

回复 8楼 ZHRXJR

只有本站会员才能查看附件，请登录

#10

ZHRXJR2018-05-20 08:24

回复 9楼 qwer789
唉！连字段名都搞不清，你得好好学习一下基本知识了。

只有本站会员才能查看附件，请登录

程序代码：

Private Sub Combo1_Click()
Text1.Text = ""
Text2.Text = ""
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from guolu Where 故障类型='" & Combo1.Text & "'"
Adodc1.Refresh
    Text1.Text = Adodc1.Recordset.Fields("故障征兆")
    Text2.Text = Adodc1.Recordset.Fields("故障原因")
Adodc1.Recordset.Close
End Sub

Private Sub Form_Load()
Combo1.Text = ""
Combo1.Clear
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from guolu"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
    Combo1.AddItem Adodc1.Recordset.Fields("故障类型")
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Close
End Sub

#11

qwer7892018-05-20 13:59

回复 10楼 ZHRXJR

非常感谢您的帮助，剩余的我自己好好学习基础知识。再次感谢您的帮助

#12

qwer7892018-05-21 09:35

回复 10楼 ZHRXJR

虽然不想再一次麻烦您，但自己弄了一天，还是没有弄清楚问题之所在。希望您直击要害，告诉我修改那些地方，明天就要交设计，内心真的着急，只得再次向您求助。希望您在百忙之中帮助我。再一次表达我内心的感谢。

#13

xzlxzlxzl2018-05-22 23:27

难道不是一句条件查询的sql语句即可解决的吗？

#14

qwer7892018-05-23 08:28

回复 13楼 xzlxzlxzl

我不知道问题出错在哪里了，是access还是VB？第8楼帮我运行成功了，我在找自己的出错点。不然用了查询语句也是运行不出结果。