|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 dongjiekey 于 2010-5-29 14:46 编辑
$ t7 s' B2 P: @$ p4 q5 y; D1 b, z. ~; O0 ^
FORM窗口建combo1和 combo2，如图，查询结果并用print输出
3 V2 [5 m4 O! g( d& W建的表如图，文件名为xh.mdb,表名为hh,这个表的意思是如果DN=5,通过查表得出PN1=12，并用print "PN1=" & PN 输出当DN=12时，PN1=12。
, e f: ?3 F- l其中combo1.list内容是：5 8 10 (截图是50，不过没关系，我改为了现在的5 8 10)" r* p# V% X9 Q( B$ R4 R( i7 \: ^
2 t i. ]: i, g2 U+ J, a
combo2.list内容是PN1 PN2
# {& y! Y/ \7 j) s( u! ]* h程序如下：
: F% P4 z7 `) MDim db As New ADODB.Connection% r2 K& A0 {' q( S* Q- K/ S
Dim rs As New ADODB.Recordset
( L: D( ~, s! c* DPrivate Sub Form_Load()
6 }# {$ Z; w4 D5 }# A7 Udb.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\xh.mdb;jet oledb:database password=mem"
8 J; V7 `! x: xdb.Open
: z: U3 D! J& y2 K7 }8 _$ Vrs.Open "select * from hh", db, 1, 3, 1
8 F- A# H Z2 ]+ REnd Sub" u1 \! f F5 ^- I
请高手帮我编一下Command1_Click，问题解决，我请版主从我的帐中-10三维币给你。 |
|
发表于 2010-5-26 20:40:45
楼主
发表于 2010-5-29 07:16:08
