当前位置: 代码迷 >> PB >> 明细表自动赋值解决方案
  详细解决方案

明细表自动赋值解决方案

热度:60   发布时间:2016-04-29 08:09:14.0
明细表自动赋值
目录窗口传递参数
long i
long j
j=dw_1.getrow()
messagebox(" ",j)
if j>0 then
i=dw_1.object.id[j] 
messagebox(" ",i) 
 openwithparm(w_gwsm,i) 
else
 messagebox("系统提示","请选择记录!")
end if
 
详细窗口接收参数

long i
i=message.doubleParm
messagebox(" ",i)  
DW_1.Settransobject(sqlca)
dw_t_gwzz.settrans(sqlca)
dw_1.retrieve(i,"bh")
dw_t_gwzz.retrieve(i,"bh")

详细表的数据窗口加了一个添加按钮
long a;
long i
i=message.doubleParm
a=dw_t_gwzz.insertrow(0)
if a<0 then 
messagebox("插入错误","插入不成功")
return 0
end if
请问如何更改,添加的时候能自动把详细表的编号(t_gwzz_zzid)变成传递过来的数值message.doubleParm


------解决方案--------------------
在详细窗口增加一个窗体变量 i_i
详细窗口接收参数

long i
i=message.doubleParm
i_i=i
messagebox(" ",i)
DW_1.Settransobject(sqlca)
dw_t_gwzz.settrans(sqlca)
dw_1.retrieve(i,"bh")
dw_t_gwzz.retrieve(i,"bh")

详细表的数据窗口加了一个添加按钮
long a;
a=dw_t_gwzz.insertrow(0)
dw_t_gwzz.object.dw_t_gwzz[a]=i_i

------解决方案--------------------
就是增加一个实例变量来接收message.doubleparm
------解决方案--------------------
实例变量
------解决方案--------------------
就是实例变量
Declare 中选择 instance variables
  相关解决方案