在php中循环 [英] looping in php
问题描述
展开以供查看...
我有一个父/子表。基本设置如下:
父表称为加载表。它有像Tripno,
carrier,loaddate等字段。
子表包含实际的停止,换句话说就是托运人,
加载城市,加载状态,
等。如果选择然后是托运人,否则是收货人。
我对这个父子表设置没有问题。这就是问题:
我正在迁移Microsoft Access到Mysql / PHP设置。从这些表中我提到的
我现在使用vb代码循环遍历表并组合信息所以
添加或编辑好
a不同的表格。该表称为Dispatch。它的唯一目的是(b / b
),看看到底发生了什么负荷。让我解释一下:
在调度表上,我可以看到所有关于拣货的信息,这可能会看起来很好看,这可能看起来好像
喜欢这个
tripno loaddate载体来自
更多字段----->
123456 04/17 / 2006 davis trucking abilene,tx / ballinger,tx
如您所见,子表中的加载城市在这里合并为一个
字段。
这个循环代码片段如下:
如果K = 1那么
FCITY = rstPICK!CITY& "," &安培; " " &安培; rstPICK!STATE
结束如果
如果K> 1然后
FCITY = FCITY& " / &安培; rstPICK!CITY& "," &安培; " " &安培; rstPICK!STATE
结束如果
完整的MS Access代码低于更新事件后的负载表。
现在对于一个大问题,这在PHP代码中看起来是什么样子来完成
同样的事情????
我说我刚输入一个主要负载,并且儿童记录有2个选秀权和3个b
。输入
最后一滴我会做什么生成什么代码,位于哪里????
如果我能完成这部分,我有整个项目已经找到了。
Private Sub Form_AfterUpdate()
错误GoTo C91ERR
Dim dbsDISPATCH作为数据库
Dim rstDISPATCH作为记录集
Dim rstPICK作为记录集
Dim strMessage As String
设置dbsDISPATCH = CurrentDb
设置rstDISPATCH = dbsDISPATCH.OpenRecordset(" DISPATCH",dbOpenTable)
Dim QUT,STRSQL,STRTRIP
Dim CARRIER1,GRECNUM
昏暗的FCITY,FSTATE,TCITY,TSTATE
Dim BRATE,CRATE,TDROP
Dim MULTI,BILLTOV,SHIPPERV,CONSIGNV
Dim LDATEV, DDATEV
Dim TRIPNOV,LOADNOV,COMMV
Dim K
QUT = Chr $(34)
STRSQL = SELECT * FROM PICKUPS ORDER BY PICKUPS.TRIPNO,PICKUPS.PICKNO;"
Set rstPICK = dbsDISPATCH.OpenRecordse t(STRSQL)
TRIPNOV = TRIPNO
如果Len(Trim $(CARRIER& vbNullString))= 0然后
CARRIER1 =""
否则
CARRIER1 = CARRIER
结束If
如果Len(Trim $(BILLTO& vbNullString))= 0那么
BILLTOV =""
Else
BILLTOV = BILLTO
结束如果
MULTI =M
如果Len(修剪$(BILLAT& vbNullString) )= 0然后
BRATE = 0
否则
BRATE = BILLAT
结束如果
如果Len(修剪$(PAYAT& vbNullString))= 0那么
CRATE = 0
否则
CRATE = PAYAT
结束如果
GRECNUM = rstPICK.RecordCount
如果GRECNUM = 0那么
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox没有保存任何损失
NOSUC = 1
GoTo C91
结束如果
rstPICK.MoveFirst
STRTRIP =" [TRIPNO] =" &安培; QUT&我![TRIPNO]& QUT
rstPICK.FindFirst STRTRIP
如果rstPICK.NoMatch那么
rstPICK.MoveLast
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
NOSUC = 1
GoTo C91
结束如果
K = 0
Do Until rstPICK.EOF
K = K + 1
如果rstPICK!TRIPNO <> TRIPNOV然后退出Do
如果是IsNull(rstPICK!CITY)那么
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox没有拣货城市,所有进入后都要保存
NOSUC = 1
GoTo C91
结束如果
如果是IsNull(rstPICK!STATE)那么
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox没有选择状态,所有输入时都会保存
NOSUC = 1
GoTo C91
结束如果
如果K = 1那么
FCITY = rstPICK!CITY& "," &安培; " " &安培; rstPICK!状态
如果是IsNull(rstPICK!SHIPPER)那么
SHIPPERV =""
否则
SHIPPERV = rstPICK!SHIPPER
结束如果
如果是IsNull(rstPICK!LOADDATE)那么
LDATEV =""
Else
LDATEV = rstPICK!LOADDATE
结束如果
如果是IsNull(rstPICK!LOADNO)那么
LOADNOV =""
Else
LOADNOV = rstPICK!LOADNO
结束如果
如果IsNull( rstPICK!商品)然后
COMMV =""
否则
COMMV = rstPICK!商品
结束如果
结束如果
如果K> 1然后
FCITY = FCITY& " / &安培; rstPICK!CITY& "," &安培; " " &安培; rstPICK!状态
如果IsNull(rstPICK!SHIPPER)那么
SHIPPERV = SHIPPERV
否则
SHIPPERV = SHIPPERV& " / &安培; rstPICK!SHIPPER
结束如果
结束如果
rstPICK.MoveNext
Loop
rstPICK.MoveLast
rstPICK.Close
如果Len(Trim(FCITY))> 240然后
FCITY = Mid(FCITY,1,240)
结束如果
如果Len(Trim(SHIPPERV))> 240然后
SHIPPERV = Mid(SHIPPERV,1,240)
结束如果
''DROPS ***** ********************************************* ***** **********
Dim rstDROP As Recordset
STRSQL =" SELECT * FROM DROPS ORDER BY DROPS.TRIPNO,DROPS。 DROPNO;"
设置rstDROP = dbsDISPATCH.OpenRecordset(STRSQL)
GRECNUM = rstDROP.RecordCount
如果GRECNUM = 0然后
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox" NO TRIPS SAVED"
NOSUC = 1
GoTo C91
结束如果
rstDROP.MoveFirst
STRTRIP =" [TRIPNO] =" &安培; QUT&我![TRIPNO]& QUT
rstDROP.FindFirst STRTRIP
如果rstDROP.NoMatch那么
rstDROP.MoveLast
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
NOSUC = 1
GoTo C91
结束如果
K = 0
直到rstDROP.EOF
K = K + 1
如果rstDROP!TRIPNO <> TRIPNOV然后退出Do
如果是IsNull(rstDROP!CITY)那么
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox" NO DROP CITY,在所有输入时保存更多>
NOSUC = 1
GoTo C91
结束如果
如果是IsNull(rstDROP!STATE)那么
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox" NO DROP STATE,在所有输入的时候保存完毕>
NOSUC = 1
GoTo C91
结束如果
如果K = 1那么
TCITY = rstDROP!CITY& "," &安培; " " &安培; rstDROP!STATE
如果是IsNull(rstDROP!CONSIGNEE)那么
CONSIGNV =""
Else
CONSIGNV = rstDROP!CONSIGNEE
结束如果
如果是IsNull(rstDROP!UNLOADDATE)那么
DDATEV =""
否则
DDATEV = rstDROP!UNLOADDATE
结束如果
结束如果
如果K> 1然后
TCITY = TCITY& " / &安培; rstDROP!CITY& "," &安培; " " &安培; rstDROP!STATE
如果是IsNull(rstDROP!CONSIGNEE)那么
CONSIGNV = CONSIGNV
否则
CONSIGNV = CONSIGNV &安培; " / &安培; rstDROP!CONSIGNEE
结束如果
结束如果
rstDROP.MoveNext
Loop
rstDROP.MoveLast
rstDROP.Close
如果Len(Trim(TCITY))> 240然后
TCITY = Mid(TCITY,1,240)
结束如果
如果Len(Trim(CONSIGNV))> 240然后
CONSIGNV =中(CONSIGNV,1,240)
结束如果
''加入调度
********************************************* * *******
GRECNUM = rstDISPATCH.RecordCount
如果GRECNUM = 0那么
rstDISPATCH.Close
dbsDISPATCH.Close
NOSUC = 1
GoTo C91
结束如果
rstDISPATCH.Index =" ; TRIPNO"
rstDATPATCH.MoveFirst
rstDISPATCH.Seek" =" ;,TRIPNOV
如果rstDISPATCH.NoMatch则
使用rstDISPATCH
..AddNew''添加新记录。
如果CARRIER1 =""那么
!CARRIER = Null
否则
!CARRIER = CARRIER1
结束如果
!TRIPNO = TRIPNOV
!SM = MULTI
如果BILLTOV =""然后
!BILL_TO = Null
否则
!BILL_TO = BILLTOV
结束如果
如果SHIPPERV =""然后
!SHIPPER = Null
否则
!SHIPPER = SHIPPERV
结束如果
如果FCITY ="然后
!CITY_LD = Null
Else
!CITY_LD = FCITY
结束如果
如果CONSIGNV =""那么
!CONSIGNEE = Null
否则
!CONSIGNEE = CONSIGNV
结束如果
如果LDATEV =""那么
!LOAD_DATE = Null
否则
!LOAD_DATE = LDATEV
结束如果
如果DDATEV =""然后
!DEL_DATE = Null
否则
!DEL_DATE = DDATEV
结束如果
如果COMMV =""然后
!商品=无效
否则
!商品= COMMV
结束如果
如果LOADNOV =""然后
!LOADNO = Null
否则
!LOADNO = LOADNOV
结束如果
如果TCITY ="然后
!CITY_DEL = Null
否则
!CITY_DEL = TCITY
结束如果
如果CRATE = 0那么
!PAYAT = Null
否则
!PAYAT = CRATE
结束如果
如果Len(修剪$(PAYOTHER& vbNullString))= 0那么
!PAYOTHER = Null
否则
!PAYOTHER = PAYOTHER
结束如果
如果Len(Trim $(DROP& vbNullString))= 0那么
!PK_DRP = Null
Else
!PK_DRP = DROP
结束如果
如果Len(修剪$(LUMPER& vbNullString) ))= 0然后
!LUMPER = Null
否则
!LUMPER = LUMPER
结束如果
!TOTALPAY = Nz(PAYAT)+ Nz(PAYOTHER)+ Nz(DROP)+ Nz(LUMPER)
如果Len(修剪$(NOTES& vbNullString) ))= 0然后
!NOTES = Null
否则
!注意=注意
结束如果
..更新''保存更改。
..关闭
结束
否则
使用rstDISPATCH
''编辑调度*************************** *********************** **********
..编辑
如果CARRIER1 ="然后
!CARRIER = Null
否则
!CARRIER = CARRIER1
结束如果
''!CARRIER = CARRIER1
!TRIPNO = TRIPNOV
!SM = MULTI
如果BILLTOV =""然后
!BILL_TO = Null
否则
!BILL_TO = BILLTOV
结束如果
如果SHIPPERV =""然后
!SHIPPER = Null
否则
!SHIPPER = SHIPPERV
结束如果
如果FCITY ="然后
!CITY_LD = Null
Else
!CITY_LD = FCITY
结束如果
如果CONSIGNV =""那么
!CONSIGNEE = Null
否则
!CONSIGNEE = CONSIGNV
结束如果
如果LDATEV =""那么
!LOAD_DATE = Null
否则
!LOAD_DATE = LDATEV
结束如果
如果DDATEV =""然后
!DEL_DATE = Null
否则
!DEL_DATE = DDATEV
结束如果
如果COMMV =""然后
!商品=无效
否则
!商品= COMMV
结束如果
如果LOADNOV =""然后
!LOADNO = Null
否则
!LOADNO = LOADNOV
结束如果
如果TCITY ="然后
!CITY_DEL = Null
否则
!CITY_DEL = TCITY
结束如果
如果CRATE = 0那么
!PAYAT = Null
否则
!PAYAT = CRATE
结束如果
如果Len(修剪$(PAYOTHER& vbNullString))= 0那么
!PAYOTHER = Null
否则
!PAYOTHER = PAYOTHER
结束如果
如果Len(Trim $(DROP& vbNullString))= 0那么
!PK_DRP = Null
Else
!PK_DRP = DROP
结束如果
如果Len(修剪$(LUMPER& vbNullString) ))= 0然后
!LUMPER = Null
否则
!LUMPER = LUMPER
结束如果
!TOTALPAY = Nz(PAYAT)+ Nz(PAYOTHER)+ Nz(DROP)+ Nz(LUMPER)
如果Len(修剪$(NOTES& vbNullString))= 0然后
!NOTES = Null
否则
!注意=注意
结束如果
..更新''保存更改。
..关闭
结束
结束如果
''************************************
dbsDISPATCH.Close
C91:
如果FIRLOAD = 0则FIRLOAD = 1
TRIPNO.Locked = True
如果NOSUC = 1那么
呼叫NOSUCCES
结束如果
退出Sub
C91ERR:
MsgBox更新错误后发生错误
恢复
结束子
(34)
STRSQL =" SELECT * FROM PICKUPS ORDER by PICKUPS.TRIPNO,PICKUPS.PICKNO;"
Set rstPICK = dbsDISPATCH.OpenRecordset(STRSQL)
TRIPNOV = TRIPNO
如果Len(修剪
(CARRIER& vbNullString))= 0然后
CARRIER1 =""
否则
CARRIER1 = CARRIER
结束If
如果Len(Trim
(BILLTO& vbNullString))= 0那么
BILLTOV =""
Else
BILLTOV = BILLTO
结束如果
MULTI =M
如果莱恩(修剪
Expand full for viewing...
I have a parent/child table. The basic setup is as follows:
The parent table is called load sheet. It has fields such as Tripno,
carrier, loaddate, etc.
The child table contains the actual stop offs, in other words the shipper,
load city, load state,
etc. If a pick then shipper, otherwise a consignee.
I have no problem with this parent child table setup. Here''s the problem:
I am migrating fom Microsoft Access to a Mysql/PHP setup. From these tables
mentioned above I
currently use vb code to loop through the tables and combine information so
as to add or edit to
a different table all together. This table is called Dispatch. Its sole
purpose is to (at a
glance), see exactly what is going on with what load. Let me explain:
On the dispatch table, I have all information for a pick or drop at a
glance, this might look
like this
tripno loaddate carrier loadfrom
more fields----->
123456 04/17/2006 davis trucking abilene, tx / ballinger,tx
As you can see, the load cities from the child table is combined in one
field here.
This loop code snip looks like:
If K = 1 Then
FCITY = rstPICK!CITY & "," & " " & rstPICK!STATE
end if
If K > 1 Then
FCITY = FCITY & " / " & rstPICK!CITY & "," & " " & rstPICK!STATE
end if
The complete MS Access code is below of the load sheet after update event.
Now for the big question, What does this look like in PHP code to accomplish
the same thing????
Say I just entered A main load, and the child records have 2 picks and 3
drops. After entering
the final drop what would I do do generate What code, located where????
If I could get this part done, I have the whole project figured out.
Private Sub Form_AfterUpdate()
On Error GoTo C91ERR
Dim dbsDISPATCH As Database
Dim rstDISPATCH As Recordset
Dim rstPICK As Recordset
Dim strMessage As String
Set dbsDISPATCH = CurrentDb
Set rstDISPATCH = dbsDISPATCH.OpenRecordset("DISPATCH", dbOpenTable)
Dim QUT, STRSQL, STRTRIP
Dim CARRIER1, GRECNUM
Dim FCITY, FSTATE, TCITY, TSTATE
Dim BRATE, CRATE, TDROP
Dim MULTI, BILLTOV, SHIPPERV, CONSIGNV
Dim LDATEV, DDATEV
Dim TRIPNOV, LOADNOV, COMMV
Dim K
QUT = Chr$(34)
STRSQL = "SELECT * FROM PICKUPS ORDER BY PICKUPS.TRIPNO, PICKUPS.PICKNO;"
Set rstPICK = dbsDISPATCH.OpenRecordset(STRSQL)
TRIPNOV = TRIPNO
If Len(Trim$(CARRIER & vbNullString)) = 0 Then
CARRIER1 = ""
Else
CARRIER1 = CARRIER
End If
If Len(Trim$(BILLTO & vbNullString)) = 0 Then
BILLTOV = ""
Else
BILLTOV = BILLTO
End If
MULTI = "M"
If Len(Trim$(BILLAT & vbNullString)) = 0 Then
BRATE = 0
Else
BRATE = BILLAT
End If
If Len(Trim$(PAYAT & vbNullString)) = 0 Then
CRATE = 0
Else
CRATE = PAYAT
End If
GRECNUM = rstPICK.RecordCount
If GRECNUM = 0 Then
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox "NO TRIPS SAVED"
NOSUC = 1
GoTo C91
End If
rstPICK.MoveFirst
STRTRIP = "[TRIPNO] = " & QUT & Me![TRIPNO] & QUT
rstPICK.FindFirst STRTRIP
If rstPICK.NoMatch Then
rstPICK.MoveLast
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
NOSUC = 1
GoTo C91
End If
K = 0
Do Until rstPICK.EOF
K = K + 1
If rstPICK!TRIPNO <> TRIPNOV Then Exit Do
If IsNull(rstPICK!CITY) Then
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox "NO PICKUP CITY, SAVE LATER WHEN ALL IS ENTERED"
NOSUC = 1
GoTo C91
End If
If IsNull(rstPICK!STATE) Then
rstPICK.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox "NO PICKUP STATE, SAVE LATER WHEN ALL IS ENTERED"
NOSUC = 1
GoTo C91
End If
If K = 1 Then
FCITY = rstPICK!CITY & "," & " " & rstPICK!STATE
If IsNull(rstPICK!SHIPPER) Then
SHIPPERV = ""
Else
SHIPPERV = rstPICK!SHIPPER
End If
If IsNull(rstPICK!LOADDATE) Then
LDATEV = ""
Else
LDATEV = rstPICK!LOADDATE
End If
If IsNull(rstPICK!LOADNO) Then
LOADNOV = ""
Else
LOADNOV = rstPICK!LOADNO
End If
If IsNull(rstPICK!COMMODITY) Then
COMMV = ""
Else
COMMV = rstPICK!COMMODITY
End If
End If
If K > 1 Then
FCITY = FCITY & " / " & rstPICK!CITY & "," & " " & rstPICK!STATE
If IsNull(rstPICK!SHIPPER) Then
SHIPPERV = SHIPPERV
Else
SHIPPERV = SHIPPERV & " / " & rstPICK!SHIPPER
End If
End If
rstPICK.MoveNext
Loop
rstPICK.MoveLast
rstPICK.Close
If Len(Trim(FCITY)) > 240 Then
FCITY = Mid(FCITY, 1, 240)
End If
If Len(Trim(SHIPPERV)) > 240 Then
SHIPPERV = Mid(SHIPPERV, 1, 240)
End If
'' DROPS ************************************************** ***************
Dim rstDROP As Recordset
STRSQL = "SELECT * FROM DROPS ORDER BY DROPS.TRIPNO, DROPS.DROPNO;"
Set rstDROP = dbsDISPATCH.OpenRecordset(STRSQL)
GRECNUM = rstDROP.RecordCount
If GRECNUM = 0 Then
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox "NO TRIPS SAVED"
NOSUC = 1
GoTo C91
End If
rstDROP.MoveFirst
STRTRIP = "[TRIPNO] = " & QUT & Me![TRIPNO] & QUT
rstDROP.FindFirst STRTRIP
If rstDROP.NoMatch Then
rstDROP.MoveLast
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
NOSUC = 1
GoTo C91
End If
K = 0
Do Until rstDROP.EOF
K = K + 1
If rstDROP!TRIPNO <> TRIPNOV Then Exit Do
If IsNull(rstDROP!CITY) Then
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox "NO DROP CITY, SAVE LATER WHEN ALL IS ENTERED"
NOSUC = 1
GoTo C91
End If
If IsNull(rstDROP!STATE) Then
rstDROP.Close
rstDISPATCH.Close
dbsDISPATCH.Close
MsgBox "NO DROP STATE, SAVE LATER WHEN ALL IS ENTERED"
NOSUC = 1
GoTo C91
End If
If K = 1 Then
TCITY = rstDROP!CITY & "," & " " & rstDROP!STATE
If IsNull(rstDROP!CONSIGNEE) Then
CONSIGNV = ""
Else
CONSIGNV = rstDROP!CONSIGNEE
End If
If IsNull(rstDROP!UNLOADDATE) Then
DDATEV = ""
Else
DDATEV = rstDROP!UNLOADDATE
End If
End If
If K > 1 Then
TCITY = TCITY & " / " & rstDROP!CITY & "," & " " & rstDROP!STATE
If IsNull(rstDROP!CONSIGNEE) Then
CONSIGNV = CONSIGNV
Else
CONSIGNV = CONSIGNV & " / " & rstDROP!CONSIGNEE
End If
End If
rstDROP.MoveNext
Loop
rstDROP.MoveLast
rstDROP.Close
If Len(Trim(TCITY)) > 240 Then
TCITY = Mid(TCITY, 1, 240)
End If
If Len(Trim(CONSIGNV)) > 240 Then
CONSIGNV = Mid(CONSIGNV, 1, 240)
End If
'' ADDING TO DISPATCH
************************************************** *******
GRECNUM = rstDISPATCH.RecordCount
If GRECNUM = 0 Then
rstDISPATCH.Close
dbsDISPATCH.Close
NOSUC = 1
GoTo C91
End If
rstDISPATCH.Index = "TRIPNO"
rstDISPATCH.MoveFirst
rstDISPATCH.Seek "=", TRIPNOV
If rstDISPATCH.NoMatch Then
With rstDISPATCH
..AddNew '' Add new record.
If CARRIER1 = "" Then
!CARRIER = Null
Else
!CARRIER = CARRIER1
End If
!TRIPNO = TRIPNOV
!SM = MULTI
If BILLTOV = "" Then
!BILL_TO = Null
Else
!BILL_TO = BILLTOV
End If
If SHIPPERV = "" Then
!SHIPPER = Null
Else
!SHIPPER = SHIPPERV
End If
If FCITY = "" Then
!CITY_LD = Null
Else
!CITY_LD = FCITY
End If
If CONSIGNV = "" Then
!CONSIGNEE = Null
Else
!CONSIGNEE = CONSIGNV
End If
If LDATEV = "" Then
!LOAD_DATE = Null
Else
!LOAD_DATE = LDATEV
End If
If DDATEV = "" Then
!DEL_DATE = Null
Else
!DEL_DATE = DDATEV
End If
If COMMV = "" Then
!COMMODITY = Null
Else
!COMMODITY = COMMV
End If
If LOADNOV = "" Then
!LOADNO = Null
Else
!LOADNO = LOADNOV
End If
If TCITY = "" Then
!CITY_DEL = Null
Else
!CITY_DEL = TCITY
End If
If CRATE = 0 Then
!PAYAT = Null
Else
!PAYAT = CRATE
End If
If Len(Trim$(PAYOTHER & vbNullString)) = 0 Then
!PAYOTHER = Null
Else
!PAYOTHER = PAYOTHER
End If
If Len(Trim$(DROP & vbNullString)) = 0 Then
!PK_DRP = Null
Else
!PK_DRP = DROP
End If
If Len(Trim$(LUMPER & vbNullString)) = 0 Then
!LUMPER = Null
Else
!LUMPER = LUMPER
End If
!TOTALPAY = Nz(PAYAT) + Nz(PAYOTHER) + Nz(DROP) + Nz(LUMPER)
If Len(Trim$(NOTES & vbNullString)) = 0 Then
!NOTES = Null
Else
!NOTES = NOTES
End If
..Update '' Save changes.
..Close
End With
Else
With rstDISPATCH
'' EDIT DISPATCH ************************************************** **********
..Edit
If CARRIER1 = "" Then
!CARRIER = Null
Else
!CARRIER = CARRIER1
End If
''!CARRIER = CARRIER1
!TRIPNO = TRIPNOV
!SM = MULTI
If BILLTOV = "" Then
!BILL_TO = Null
Else
!BILL_TO = BILLTOV
End If
If SHIPPERV = "" Then
!SHIPPER = Null
Else
!SHIPPER = SHIPPERV
End If
If FCITY = "" Then
!CITY_LD = Null
Else
!CITY_LD = FCITY
End If
If CONSIGNV = "" Then
!CONSIGNEE = Null
Else
!CONSIGNEE = CONSIGNV
End If
If LDATEV = "" Then
!LOAD_DATE = Null
Else
!LOAD_DATE = LDATEV
End If
If DDATEV = "" Then
!DEL_DATE = Null
Else
!DEL_DATE = DDATEV
End If
If COMMV = "" Then
!COMMODITY = Null
Else
!COMMODITY = COMMV
End If
If LOADNOV = "" Then
!LOADNO = Null
Else
!LOADNO = LOADNOV
End If
If TCITY = "" Then
!CITY_DEL = Null
Else
!CITY_DEL = TCITY
End If
If CRATE = 0 Then
!PAYAT = Null
Else
!PAYAT = CRATE
End If
If Len(Trim$(PAYOTHER & vbNullString)) = 0 Then
!PAYOTHER = Null
Else
!PAYOTHER = PAYOTHER
End If
If Len(Trim$(DROP & vbNullString)) = 0 Then
!PK_DRP = Null
Else
!PK_DRP = DROP
End If
If Len(Trim$(LUMPER & vbNullString)) = 0 Then
!LUMPER = Null
Else
!LUMPER = LUMPER
End If
!TOTALPAY = Nz(PAYAT) + Nz(PAYOTHER) + Nz(DROP) + Nz(LUMPER)
If Len(Trim$(NOTES & vbNullString)) = 0 Then
!NOTES = Null
Else
!NOTES = NOTES
End If
..Update '' Save changes.
..Close
End With
End If
''************************************
dbsDISPATCH.Close
C91:
If FIRLOAD = 0 Then FIRLOAD = 1
TRIPNO.Locked = True
If NOSUC = 1 Then
Call NOSUCCES
End If
Exit Sub
C91ERR:
MsgBox "AN AFTER UPDATE ERROR OCCURRED"
Resume
End Sub
(34)
STRSQL = "SELECT * FROM PICKUPS ORDER BY PICKUPS.TRIPNO, PICKUPS.PICKNO;"
Set rstPICK = dbsDISPATCH.OpenRecordset(STRSQL)
TRIPNOV = TRIPNO
If Len(Trim
(CARRIER & vbNullString)) = 0 Then
CARRIER1 = ""
Else
CARRIER1 = CARRIER
End If
If Len(Trim
(BILLTO & vbNullString)) = 0 Then
BILLTOV = ""
Else
BILLTOV = BILLTO
End If
MULTI = "M"
If Len(Trim
这篇关于在php中循环的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!