UC知道VB 取一个项目的对应的所有的值 并比较其中最大值 输出到text1上
来源：百度知道 编辑：UC知道 时间：2024/05/31 04:05:57
用了Ado4.0 adobc Datacombo等控件
有一个表Store，它由项目名称Pro（文本），原料名称Name（文本），该原料在该项目中的编号No（格式为数字）（格式000，001，002。。。。。），还有一些相关信息组成。
要求
按一下Datacombo在Datacombo里选择，当选择一个项目时， text1输出该原料在该项目中最大的编号。
比如 项目是AAA 原料名称有M1 M2 M3 M4 M5编号是001，002，006，008，015所以选择项目AAA时，text1输出015 当项目选择BBB时，text1变成项目BBB所有原料编号的最大值。项目没有原料，则显示‘查找不到’
注：项目是从另一个表调进Datacombo的
感谢各位高手了，小弟初学。
怎么搜出来都是001 搜不到最大号码呢？
有一个表Store，它由项目名称Pro（文本），原料名称Name（文本），该原料在该项目中的编号No（格式为数字）（格式000，001，002。。。。。），还有一些相关信息组成。
要求
按一下Datacombo在Datacombo里选择，当选择一个项目时， text1输出该原料在该项目中最大的编号。
比如 项目是AAA 原料名称有M1 M2 M3 M4 M5编号是001，002，006，008，015所以选择项目AAA时，text1输出015 当项目选择BBB时，text1变成项目BBB所有原料编号的最大值。项目没有原料，则显示‘查找不到’
注：项目是从另一个表调进Datacombo的
感谢各位高手了，小弟初学。
怎么搜出来都是001 搜不到最大号码呢？
Private Sub Datacombo_Change()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.open "cnstring"
a = Datacombo.Text
sql = "select * from 表 where '" & a & "'order by 编号 asc"
rs.open sql, cn, 3, 3
If Not rs.EOF Then
Text1.Text = rs("编号")
Else
Text1.Text = "查找不到"
End If
End Sub
大概是这样的，代码中cnstring是连接你数据库的字符串，我用的是字符串连接数据库，具体连法不多说，你要的功能这样就可以实现，没有测试，自己改改。
那么多分都没人?
不过不好意思,数据库我实在是没什么概念
“搜出来都是001 ”
数据库里的存储格式是 数字 吗？如果是数字应该不会显示001而会显示 1 的
查一下数据库的各项格式，然后按照像楼上那位达人所说的，sql语句中的order排序，得到最大值。