Pictures don't forgive me to describe a window has three datawindow dw_1 respectively 2, 3, and a control cb_1, I now realize the functional description is as follows:
Click control: 1 out of 3 of the bank of China (single line) combined the data shown in 2 (a line number in serial number 1, the other long code short name in 3)
Special case 1 all 3 radio 2 shown as after clicking on the "all" (serial number 0) + 3 in a row content

Functionality in both cases I now can only achieve a special case and will not save the error code below master can look understand can help help


2 in six fields needs to be saved to the database fbansn fentryid value (1) (1) fnumber fshortnumber value (3) and (3) fname (3) FDSC (description)





Control is clicked event


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 & gt; 0 then return



Ll_row=dw_2. Insertrow (0)
Ls_str="the evaluate (' lookupdisplay (# 3)", "+ string (dw_1. Getrow ()) +") "
Ls_ds=dw_1. The 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)


Save
If dw_2. The update () & lt;> 1 then
The rollback.
MessageBox (" prompt ", "failure")
The else
Commit;
MessageBox (" prompt ", "success")
end if

CodePudding user response:

Is too long.

CodePudding user response:

5555 I feel almost finished but it was a little bit not shout

CodePudding user response:

Dw_2 length of each field in the enough,

CodePudding user response:

Enough

CodePudding user response:

Dw_2 DBERROR events MESSAGEBOX SQLERRTEXT see,