/*如果当前被改变的列是"jzg_xm"时,相应地改变与教师对应的基本信息,该基本信息从下拉数据窗口中得到,而下拉数据窗口实际上只显示“姓名”列*/
if dwo.name = "jzg_xm" then
long i
datawindowchild ldwc_child
this.getchild('jzg_xm',ldwc_child) //教师姓名列的下拉数据窗口
i=ldwc_child.getselectedrow(0)
this.object.jzb_id[row]=ldwc_child.getitemstring(i,"id")
this.object.jzg_xb[row]=ldwc_child.getitemnumber(i,"xb")
this.object.jzg_xl[row]=ldwc_child.getitemstring(i,"xl")
this.object.jzg_zc[row]=ldwc_child.getitemstring(i,"zc")
this.object.jzg_zw[row]=ldwc_child.getitemstring(i,"zw")
end if
return//返回默认值(表示接受数据)
choose case dwo.name//假如焦点在?
case 'name'//职工姓名
select code into :name1 from rsk_local where name=:data;
this.object.code[row]=name1//根据NAME选择出来的值,给CODE字段赋值
this.settaborder('code',0)//让CODE字段不可编辑
case 'ljth'//零件图号
ljth5=data
select ljmc into :lstr_ljmc from ljgdk where ljth=:data;//读出零件名称
if isnull(lstr_ljmc) then//判断
dw_sgd1.object.ljth.validationmsg="零件编号不存在,请检查。"
return 1
end if
select cpxh into :cpth1 from ljgdk where ljth=:data;
object.cpxh[row]=cpth1//根据零件图号找到产品图号,赋值给CPXH字段
object.ljmc[row]=lstr_ljmc
select ljcl into :ljcl1 from ljgdk where ljth=:data;//读出零件-材料名称
object.ljcl[row]=ljcl1
select ljth into :ljth1 from ljgdk where ljth=:data;//读出零件图号
ljth5=data
select mp_dim,xlgg into :clgg1 ,:xlgg1 from ljgdk where ljth=:data;
object.clgg[row]=clgg1
object.xlgg[row]=xlgg1
END CHOOSE