首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

哪位高手能帮小弟我翻译一上PB的代码,多谢各路高手

2013-01-05 
谁能帮我翻译一下PB的代码,谢谢各路高手有一段PB代码不是很明白请大家指教:string ls_idlong ll_idw_main.

谁能帮我翻译一下PB的代码,谢谢各路高手
有一段PB代码不是很明白请大家指教:

string ls_id
long ll_i
dw_main.accepttext( )
if dwo.name = 'stockmodelcode' then
  ls_id= dw_main.object.stockmodelcode[row]
  
  for ll_i= 1 to dw_main.rowcount( )
  if ll_i<> row then
 if  ls_id= dw_main.object.stockmodelcode[ll_i] then
messagebox('提示','添加的编码已经存在!!')
 dw_main.object.stockmodelcode[row]= ''
return 1
 end if
  end if  
  next

end if
[解决办法]
大概是写在DW 控件的 itemchanged 事件里用于检测输入的编码是不是已经存在的程序。


string ls_id
long ll_i

dw_main.accepttext( )
if dwo.name = 'stockmodelcode' then //判断当前列是否 stockmodelcode
ls_id= dw_main.object.stockmodelcode[row] //取录入的数据,还可以写成:ls_id = data

for ll_i= 1 to dw_main.rowcount( ) //循环整个DW, 从第一行至最后一行
if ll_i<> row then              //遇到当前行则跳过,还可以写成 if ll_i = row then continue
if ls_id= dw_main.object.stockmodelcode[ll_i] then //第ll_i 行的stockmodelcode 列的数据和当前的数据ls_id 是否相同
messagebox('提示','添加的编码已经存在!!') 
dw_main.object.stockmodelcode[row]= ''  //如果相同,则清空当前项,
return 1  //这里不此项不接受数据的更改,并且不改变输入的焦点。
end if 
end if 
next

end if


[解决办法]
引用:

if dwo.name = 'stockmodelcode' then //dwo 是事件中自带的数据对象参数,以editchanged这个事件为解释就是 当前编辑列名为 stockmodelcode
  ls_id= dw_main.object.stockmodelcode[row]//row 也是事件中带的行参数,此句就是取stockmodelcode列 row 行的数据
if ll_i<> row then

热点排行