我現在有個難題,在程式分類號那輸入編號時提示“出錯資訊","輸入資料不符合要求,請重新輸入...",”
我想知道這從什么地方下手改動,后來我找了半天,只找到個角本如下!這是PB6.5源代碼請高手!!!!
這是ITEMERROR祖先角本的內容 :如下
string ls_colname, ls_datatype
int ls_return
ls_colname = Lower(dwo.Name)
ls_datatype = Lower(dwo.ColType)
beep(1)
messagebox("出錯資訊","輸入資料不符合要求,請重新輸入...",stopsign!,ok!)
CHOOSE CASE ls_datatype
CASE "long"
integer null_num
SetNull(null_num)
This.SetItem(row, ls_colname, null_num)
ls_RETURN=1
CASE "date"
date null_date
SetNull(null_date)
This.SetItem(row, ls_colname, null_date)
ls_RETURN=1
CASE "string","char","varchar"
string null_string
SetNull(null_string)
This.SetItem(row, ls_colname, null_string)
ls_RETURN=1
CASE "datetime"
datetime null_date1
SetNull(null_date1)
This.SetItem(row, ls_colname, null_date1)
ls_RETURN =1
CASE "decimal","double","real"
Decimal null_data1
SetNull(null_data1)
This.SetItem(row, ls_colname, null_data1)
ls_RETURN =1
// Additional cases for other data types
END CHOOSE
return 1
uj5u.com熱心網友回復:
讓祖代碼不執行,在本dw視窗ITEMERROR 中寫return 1
然后點右鍵,確保extend ancestor script 不選。
uj5u.com熱心網友回復:
這個ITEMERROR祖先腳本的代碼本身就比較垃圾,基本上沒什么意義!留著干什么啊?全刪了自己寫吧uj5u.com熱心網友回復:
dwo.Name 這個是什么東西呀,是變數呀,還是什么,為什么我找不到它定義的位置!!11uj5u.com熱心網友回復:
資料視窗中的物件名稱 DWO 在本身資料視窗事件 就是一個引數,用來確定你對某個物件做判斷處理。uj5u.com熱心網友回復:
uj5u.com熱心網友回復:
你真的應該把這些代碼都刪掉,這段代碼的作用無非就是出錯時給個提示并把出錯值置空,不顯示系統自帶的提示,如果就為實作這個功能,它這種寫法就太多余了,真要保留,可以改成下面這樣:
setnull(data)
messagebox("出錯資訊","輸入資料不符合要求,請重新輸入...",stopsign!,ok!)
return 1
uj5u.com熱心網友回復:
dwo是事件引數,該事件產生時,pb傳出的當前的Dwobject。
轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/107717.html
標籤:腳本語言
