📄 4975.html
字号:
<html>
<head>
<title>Re: 请教一个vb问题...谢谢!!</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 请教一个vb问题...谢谢!!</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.tw">Honey</a> on August 22, 1998 at 16:44:13:<p>
In Reply to: <a href="4974.html">请教一个vb问题...谢谢!!</a> posted by Gary on August 22, 1998 at 14:23:19:<p>
最简单的方式是<br>在 '一般宣告' 中宣告<br>Dim cre As Long<br>或在 '一般模组' 宣告<br>Public cre as long<p>: Private Sub Option1_Click()<br>: Dim cre As Long<p>: Dim bkm As Variant<br>: On Error GoTo ed<p>: bkm = data1.Recordset.Bookmark<br>: cre = InputBox$("请输入欲查询编号:", "查询")<p>: <br>: data1.Recordset.FindFirst "编号 =" & cre<p>: If data1.Recordset.NoMatch Then<br>: data1.Recordset.Bookmark = bkm<br>: Call worng<br>: Command2.Enabled = False<br>: Com2.Enabled = True<br>: Else<br>: Command2.Enabled = True<br>: Com2.Enabled = False<br>: End If<p>: ed:<br>: End Sub<p>: ===========================<p>: Private Sub Command2_Click()<p>: <br>: data1.Recordset.FindNext "编号 =" & cre<br>: If data1.Recordset.NoMatch Then<br>: MsgBox "己经没有'" & cre & "'的客户资料!", vbOKOnly, "搜寻资料"<br>: Command2.Enabled = False<br>: Com2.Enabled = True<br>: Else<br>: Command2.Enabled = True<br>: Com2.Enabled = False<br>: End If<p>: End Sub<p>: <br>: 以上是我的程式:请问command2 要如何取得 option1 中 cre 的值呢??<p>: ~~ 麻烦一下...谢谢.. vb白痴留... ^.^"<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4975-->
</ul><!--end: 4975-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -