-
- 加为好友
- 发送私信
- 在线聊天
|
| 发表于：2008-07-04 11:04:46 楼主 |
图片不会发 见谅 先描述一下 某个窗口上有三个datawindow 分别为dw_1 2 3 ，还有一个控件cb_1，我现在实现的功能描述如下：
单击控件 一种情况：把1 3 中选中行（单一行）的数据结合起来 在2中显示（序号用1中的某行序号，其他的长代码 短代码 名称 用3的）
特殊情况 1全选 3单选 单击后 2中显示为 “全部”（序号用0表示）+3中的某行内容
实现功能就这两种情况 我目前只能实现一种 特殊情况不会 而且保存报错 代码如下 看高手能否看的懂 能帮帮就帮吧
2中的六个字段需要保存到数据库中 fbansn（1中取值） fentryid（1） fnumber（3中取值） fshortnumber（3） fname（3） fdsc （描述）
控件 clicked事件
long ll_row
long ll_row1
string ls_str
string ls_ds
string ls_mz
string ls_hb
string ls_banhao
long ll_xuhao
string ls_duandaima
string ls_tiaojian
ls_banhao = dw_1.getitemstring(dw_1.getrow(),"fbansn")
ll_xuhao = dw_1.getitemnumber(dw_1.getrow(),"fentryid")
ls_duandaima = dw_3.getitemstring(dw_3.getrow(),"fshortnumber")
ls_tiaojian = "fbansn = '" + ls_banhao + "' and fentryid = " + string(ll_xuhao) + " and fshortnumber = '" + ls_duandaima + "'"
ll_row1 = dw_2.find(ls_tiaojian,1,dw_2.rowcount())
if ll_row1 > 0 then return
ll_row = dw_2.insertrow(0)
ls_str = "evaluate('lookupdisplay(#3)'," + string(dw_1.getrow()) + ")"
ls_ds = dw_1.describe(ls_str)
ls_mz = dw_3.getitemstring(dw_3.getrow(),"fname")
dw_2.scrolltorow(ll_row)
dw_2.setitem(ll_row,"fdsc",ls_ds + "---" + ls_mz)
保存
if dw_2.update() <> 1 then
rollback ;
MessageBox ("提示","失败")
else
commit ;
MessageBox ("提示","成功")
end if |
|
|
|
40
修改
删除
举报
引用
回复
| |
