定義和用法

OriginalValue 屬性可返回一個(gè) variant 值，該值包含最后一次 Update 或 UpdateBatch 方法調(diào)用之前已經(jīng)存在的字段值。

UnderlyingValue 屬性可返回一個(gè) variant 值，該值包含某個(gè)字段的當(dāng)前值。該值不會(huì)必要地顯示由其他用戶造成的更改，且也許不是最新的值。

提示：請(qǐng)使用 Recordset 對(duì)象的 Resync 屬性來(lái)獲得 Fields 集合中所有 Field 對(duì)象的最新值。

提示：這兩種屬性可以配合使用可以解決批更新時(shí)出現(xiàn)的沖突。

語(yǔ)法

objField.OriginalValue
objField.UnderlyingValue

實(shí)例

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"

set rs = Server.CreateObject("ADODB.Recordset")
rs.open "customers", conn

set objfield=rs.fields("companyname")

'Some code..................

'Check for changes
rs.movefirst
while rs.eof=false
  if objfield.OriginalValue<>objfield.UnderlyingValue then
    response.write("Data has changed!<br />")
    response.write("Original value: ")
    response.write(objfield.OriginalValue & "<br />")
    response.write("Current value: ")
    response.write(objfield.UnderlyingValue & "<br />")
  end if
  rs.movenext
next

'More code...................

rs.Close
conn.close
%>