📄 19118.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 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:ckk1023@tomail.com.tw">kkcheung</a> on September 18, 1999 at 22:52:48:<p>selstr = "select * from sale_rec where sale_date like '" + Trim(T_FROM.Text) + "%'" 'T_FROM.Text 输入的日期<p>Set tempset = FMSDB.OpenRecordset(selstr, dbOpenSnapshot, dbSQLPassThrough)<br>Do While Not tempset.EOF<br>temp_inv = Trim(tempset.Fields!invo_code): temp_lot = Trim(tempset.Fields!stockno)<p>selstr2 = "select * from receive_rec where stock_no='" + temp_lot + "'"<br>Set tempset2 = FMSDB.OpenRecordset(selstr2, dbOpenSnapshot, dbSQLPassThrough)<p>temp_sendcode = Trim(tempset2.Fields!send_code)<br>sqlSTR = "UPDATE sale_rec SET send_code= '" + temp_sendcode + "' WHERE invo_code='" + temp_inv + "' and stockno='" + temp_lot + "'"<br>BeginTrans<br>FMSDB.Execute sqlSTR, dbSQLPassThrough<p>tempset.MoveNext <==第12次,便odbc call fialed-3146.<br>tempset2.Close<br>CommitTrans<br>Loop<p>我尝试了好几个日子运行,但tempset.MoveNext每到第12次,便odbc call fialed-3146.为什么呢?<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19118--></ul><!--end: 19118--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -