How do I depending on the rb to determine the content of DDLB? Thanks!

CodePudding user response:

Direct assignment

Ddlb_1. Text='XXX'

CodePudding user response:

If the list of DDLB assigned values, without you can dynamically add:

 integer index 
String ls_item 

Ls_item='aaa' 
The index=ddlb_1. Finditem (ls_item, 1) 
If the index=1 then 
The index=upperbound (ddlb_1. Item) + 1 
Ddlb_1. Insertitem (ls_item, index) 
Ddlb_1. Item [index]=ls_item 
End the if 
Ddlb_1. Selectitem (index) 

CodePudding user response:

Called deleteitem
Insertitem

CodePudding user response:

Dynamic definition
First create a data storage, data
DataStore ds_department
Ds_department=create DataStore
Ds_department. DataObject="dw_department"
Ds_department. SetTransObject (sqlca)
Ll_RowCount=ds_department. Retrieve ()
For ll_i=1 to ll_RowCount
Ls_department=ds_department. GetItemString (ll_i, "department_no")
Ls_department=ls_department + "-" + ds_department. GetItemString (ll_i, "department")
Ddlb_department. AddItem (ls_department)
next

CodePudding user response:

The click event rb_1:
Ddlb_1. Reset ()
Ddlb_1. Additem (" aaa ")
Ddlb_1. Additem (' BBB ')
.

Other events:
If rb_1. Checked then
Ddlb_1. Reset ()
Ddlb_1. Additem (" aaa ")
Ddlb_1. Additem (' BBB ')
.
End the if
If rb_2. Checked then
Ddlb_1. Reset ()
Ddlb_1. Additem (" aaa ")
Ddlb_1. Additem (' BBB ')
.

End the if

CodePudding user response:

Using data window DDDW, need not DDLB, use rise more convenient
Data window control set to plane without borders, in the construtor insertrow (0)
Don't data window object in the form of a grid, with columns as a drop-down box, choose edit drop-down data window way, alwaysshowarrow selected, column frame with 3 d recessed
Getchild drop-down data window, and then according to the need to replace the drop-down data window line