14075.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行
HTML
23 行
<html>
<head>
<title>Re: 试试看吧....</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 试试看吧....</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by 大汉堡 on June 09, 1999 at 19:47:03:<p>
In Reply to: <a href="14063.html">检查明细??</a> posted by 王空空 on June 09, 1999 at 15:29:24:<p>
: <br>: : 3.销售明细 三个Table,其中2和3可以销售编号关连,1和3<br>: : 之间以产品编号关连 ,当销售状况编辑完毕,再检查明细<br>: : 档的资料是否有薯条.可乐,就可知道需不需要大汉堡<br>: 您所说的检查明细是如何检查呢?如果这种情况很多时,那又要如何做呢?不可能在程式中一一写明吧? <p>'你可以考虑再加一个Table记录产品间的关系<br>'栏位:被换产品,产品一,产品二,产品三...(视需要决定)<br>'于销售作业时,若有明细资料的登录,在登录完成后即检<br>'查是否需带出被换产品,所以还是要有一Function做这个<br>'检查工作<br>'Dim chk(2) As Boolean /初值False/<br>'"Select * from产品关系where 产品一 = '"&明细资料&"'"<br>' or 产品二 = '"&明细资料&"'"<br>' or 产品三 = '"&明细资料&"'"<br>'if 找到 then<br>' for icount = s_row to e_row /明细范围检查/<br>' if 产品一 = 明细资料 then<br>' chk(0) = true<br>' end if<br>' if 产品二 = 明细资料 then<br>' chk(1) = true<br>' end if<br>' if 产品三 = 明细资料 then<br>' chk(2) = true<br>' end if<br>' next<br>' if chk(0) and chk(1) and chk(3) then<br>' 带入被换产品<br>' end if<br>'end if<br>'好像有点乱.....<br>'这个Function可以想见不会太快,若需要再加快一点<br>'可以试着加一个Flag记录是否需带出别的产品(在产品<br>'资料Table)这样就可以决定做不做这个Function 或明<br>'细的检查........祝好运!<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14075-->
</ul><!--end: 14075-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?