pb数据窗口输入问题

在pb数据窗口新增一行，在一个字段输入一个值之后，在另外一个字段根据条件自动显示一个值，而且用户无法修改，这个怎么实现

 

在editchange事件下写代码
string ll_barcode,ll_name,ll_price
dw_1.AcceptText()
for i=1 to dw_1.rowcount
ll_barcode=getitemstring(i,"base_barcode")
select name,price
from base_barcode
into :ll_name,:ll_price
where barcode=:l_barcode;
dw_1.object.name[i]=ll_name
dw_1.object.price[i]=ll_price
next

要使数据窗口控件中的数据不被改动，要在数据窗口页面编辑，点击tab order 按钮，下面会显示红色小字，只要是0，用户就无法修改数据，大于0就表示可以输入数据，而且根据大小排列是编辑TAB键跳动的顺序