圖片不會發 見諒 先描述一下 某個視窗上有三個datawindow 分別為dw_1 2 3 ,還有一個控制元件cb_1,我現在實作的功能描述如下:
單擊控制元件 一種情況:把1 3 中選中行(單一行)的資料結合起來 在2中顯示(序號用1中的某行序號,其他的長代碼 短代碼 名稱 用3的)
特殊情況 1全選 3單選 單擊后 2中顯示為 “全部”(序號用0表示)+3中的某行內容
實作功能就這兩種情況 我目前只能實作一種 特殊情況不會 而且保存報錯 代碼如下 看高手能否看的懂 能幫幫就幫吧
2中的六個欄位需要保存到資料庫中 fbansn(1中取值) fentryid(1) fnumber(3中取值) fshortnumber(3) fname(3) fdsc (描述)
控制元件 clicked事件
long ll_row
long ll_row1
string ls_str
string ls_ds
string ls_mz
string ls_hb
string ls_banhao
long ll_xuhao
string ls_duandaima
string ls_tiaojian
ls_banhao = dw_1.getitemstring(dw_1.getrow(),"fbansn")
ll_xuhao = dw_1.getitemnumber(dw_1.getrow(),"fentryid")
ls_duandaima = dw_3.getitemstring(dw_3.getrow(),"fshortnumber")
ls_tiaojian = "fbansn = '" + ls_banhao + "' and fentryid = " + string(ll_xuhao) + " and fshortnumber = '" + ls_duandaima + "'"
ll_row1 = dw_2.find(ls_tiaojian,1,dw_2.rowcount())
if ll_row1 > 0 then return
ll_row = dw_2.insertrow(0)
ls_str = "evaluate('lookupdisplay(#3)'," + string(dw_1.getrow()) + ")"
ls_ds = dw_1.describe(ls_str)
ls_mz = dw_3.getitemstring(dw_3.getrow(),"fname")
dw_2.scrolltorow(ll_row)
dw_2.setitem(ll_row,"fdsc",ls_ds + "---" + ls_mz)
保存
if dw_2.update() <> 1 then
rollback ;
MessageBox ("提示","失敗")
else
commit ;
MessageBox ("提示","成功")
end if
uj5u.com熱心網友回復:
太長了uj5u.com熱心網友回復:
5555 我感覺快完成了 可就是那么一點點不會 呼呼uj5u.com熱心網友回復:
dw_2中各欄位的長度夠嗎。uj5u.com熱心網友回復:
夠的uj5u.com熱心網友回復:
dw_2的DBERROR事件MESSAGEBOX出SQLERRTEXT看看。轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/107750.html
標籤:控件與界面
