PB虚拟datastore创建与使用示例

fw_create_ids_xx() function

string ls_syntax,ls_error,ls_present
string ls_mo_nbr, ls_nbr_step

is_sql = "select mo_nbr, mo_nbr_step, mo_seq, bat_status from mom_bat " 

ls_present="style(type=grid) datawindow(color="+string(rgb(255,255,255))+") "&
  +" text(border=6 background.mode=2 background.color="+string(rgb(255,255,0)) &
  +" font.face='Times New Roman' font.height=-9 ) "&
  +" column(background.mode=1  font.face='Times New Roman' font.height=-9 )" 

ls_syntax = SQLCA.SyntaxFromSQL(is_sql,ls_present, ls_error)
IF Len(ls_error) > 0 THEN
MessageBox("Caution", &
"SyntaxFromSQL caused these error: " + ls_error)
RETURN 
end if
ids_bat = create nv_dsa
ids_bat.Create(ls_syntax, ls_error)
if Len(ls_error) > 0 then
MessageBox("Caution", &
"Create cause these error: " + ls_error)
RETURN 
end if

ids_bat.Modify("DataWindow.Grid.Lines=2")
ids_bat.settransobject(sqlca)
ids_bat.object.datawindow.detail.color=rgb(255,255,255)
//ids_bat.retrieve()