609
社区成员
发帖
与我相关
我的任务
分享
//数据窗口新建事件ue_key,事件ID(Event ID)为pbm_dwnkey
//该事件中代码
IF Key = KeyDownArrow! AND THIS.GetRow() = THIS.RowCount() THEN
Sle_1.SetFocus()
END IF
IF Key = KeyEnter! AND THIS.GetRow() = THIS.RowCount() THEN
Sle_1.SetFocus()
END IF
//Sle_1中新建事件ue_key,事件ID(Event ID)为pbm_keydown
//该事件代码:
IF key = KeyUpArrow! THEN
dw_1.SetFocus()
dw_1.ScrollToRow(dw_1.RowCount())
END IF
Long ll_GoodsId
String ls_Shltj, ls_Shltj1
ls_shltj = Upper(sle_1.Text)
ls_shltj1 = '%' + ls_shltj + '%'
SELECT count(goodsid) INTO :ll_goodsid FROM pub_goods Where goodsid Like :ls_shltj1 ;
IF ll_goodsid > 0 THEN
OpenWithParm(w_goods_select,ls_Shltj)
END IF