pb数据窗口数据输入的下拉选择效果

1.建立子数据窗口.

2.在dw_1.editchanged中写如类似下面代码

if row <=0 then return
DataWindowChild state_child
accepttext( )
string ls_value,partname,cartype
long findIndex
if dwo.name = "partno" then
 GetChild("partno", state_child)
 state_child.accepttext( )
 ls_value = trim(getitemstring(row,"partno"))
 state_child.SetTransObject(SQLCA)
 state_child.Retrieve()
 state_child.setfilter( "p_partno like '%"+ls_value+"%' ")
 state_child.filter( )

 end if

3.在dw_1.itemchanged中写如下代码

dw_1.event itemfocuschanged( row, dwo)

因为acceptText()会触犯,itemchanged事件,所以不能在itemchanged事件中写acceptText()

4.在itemfocuschanged中写如下代码

if row <=0 then return

if dwo.name="partno" then
 accepttext( )
 string partno,partname,cartype
 partno = trim(dw_1.getitemstring(row,"partno"));
 
 select p_partname,p_yw into:partname,:cartype from p_partno
 where p_partno=:partno;
 commit;
 
 dw_1.setitem( row, "partname", partname);
 dw_1.setitem( row, "cartype", cartype);
 accepttext( )
end if

5.回车键代替Tab件,需要给dw_1建立个用户自定义事件

pb数据窗口数据输入的下拉选择效果

6.将使用setitem设置的列tab设置成0

pb数据窗口数据输入的下拉选择效果

*********************改进措施*****************************

申明窗体变量partno_ds
在open事件中填充partno_ds

string cmdText
cmdText="SELECT p_partno Partno,p_partName PartName,p_yw CarType " + &
               " from p_partno where (p_partno <> '' AND  p_partno is not null and p_partno >'-') " + &
               " order by  p_partno";

partno_ds= gf_fill_ds(cmdText);
调整editchanged事件代码为使用sharedata方式
if row <=0 then return
DataWindowChild state_child
accepttext( )
string ls_value;
long findIndex
if dwo.name = "partno" then
 GetChild("partno", state_child)
 state_child.accepttext( )
 ls_value = trim(getitemstring(row,"partno"))
 partno_ds.sharedata( state_child)
    if  not isnull(ls_value) and trim( ls_value) <> '' then
   state_child.setfilter( "partno like '%"+ls_value+"%' ")
    else
   state_child.setfilter("")
    end if
 state_child.filter( );
  end if
调整itemfocuschange事件为datastore查找

if row <=0 then return

if dwo.name="partno" then
 accepttext( )
 long findIndex
 string partno,partname,cartype
 partno = trim(dw_1.getitemstring(row,"partno"));
 
  findIndex=partno_ds.find( "partno='"+ partno+"'",1, partno_ds.rowcount( ) );
  if(findIndex>=1 ) then
     partname=partno_ds.getitemstring( findIndex,"partname")
   cartype=partno_ds.getitemstring( findIndex, "cartype")
   dw_1.setitem( row, "partname", partname);
     dw_1.setitem( row, "cartype", cartype);
  accepttext( )
     end if

 

end if

你可能感兴趣的:(数据)