📄 8023.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<html>
  <head>
    <title>资料库变动问题</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>资料库变动问题</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:z2330081@tcts.seed.net.tw">乖乖</a> on December 04, 1998 at 10:48:00:<p>
我有一段程式如下:<br>  程式一开启时<br>      datIn.DatabaseName = App.Path & "\..\MDB\kk.mdb"<br>      datIn.RecordSource = "进货资料表"<br>  尔后要查询时,程式如下:<br>  Txtq1 = InputBox("请选择要查询之料号", "查询", "01-0001")<br>  Txtq2 = InputBox("请选择要查询之起始日期", "查询", "1971/4/26")<br>  Txtq3 = InputBox("请选择要查询之结束日期", "查询", "1996/5/20")<br>  datIn.RecordSource = "select * from [进货资料表] where [料号]='" & Txtq1 & "' And [日期] >= #" & Txtq2 & "# And [日期] <= #" & Txtq3 & "#"<br>  而DBGrid.DataSource=datIn,但似乎没有作用,整个资料表在显示时,不会经过查询过后的筛选条件变动,请问程式哪里出了问题?
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8023-->
<!--top: 9831--><li><a href="9831.html">Re: 资料库变动问题</a> <b>Ta</b> <i>07:11:45 2/04/99</i>
(<!--responses: 9831-->0)
<ul><!--insert: 9831-->
</ul><!--end: 9831-->
<!--top: 8024--><li><a href="8024.html">Re: 资料库变动问题</a> <b>wave</b> <i>11:34:29 12/04/98</i>
(<!--responses: 8024-->0)
<ul><!--insert: 8024-->
</ul><!--end: 8024-->
</ul><!--end: 8023-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -