hur.cn - 华软网

 热门搜索

请大侠看看,此功能如何才能实现!

  作者:未知    来源:网络    更新时间:2018/7/4
数据窗口中,当我输入一个物品的编号的时候,自动在物品名里面出现此编号对应的物品名。这些字段都在同一个表里面!最好大侠能给我一个实现的代码,谢谢你了!
------华软网友回答------
itemchanged:
1、取得当前输入的物品编号
2、从表中查询该物品对应的物品名
3、把取得物品名写到相应的字段中

string ls_name
string ls_buf

ls_buf = TrimW(data)

choose case dwo.name
case 物品编号的字段名
               select 物品名 into :ls_name from 物品表 where 物品编号 = :ls_buf
               if sqlca.sqlcode = -1 then
                  messagebox("","")出错的信息
                  return
               end if

        目标datawindow.onject.物品名的列名[row,ls_name]
end choose
------华软网友回复------
在 dw 的 itemchanged 事件里面
 if dwo.name = '物品编号字段名' then
   dw_1.accepttext()
   变量2 = dw_1.object.物品编号字段名[currentrow()]
    select 物品名字段
      into :变量1
     from  表
    where 物品编号字段 = :变量2
    dw_1.object.物品名字段名[currentrow()] = 变量1
 end if
------华软网友回复------
非常谢你,我会试试,不行希望再帮助!      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。