整个界面以head-left-right sheet1-sheet2形式构建。

head与sheet1为查询条件Free样式。

sheet2查询结果得到 物料编码 matnr。

物料编码 值传到 head 物料编码输入框中。

代码如下:

 If currentrow > 0 Then
THIS.SelectRow(0, FALSE)
THIS.SelectRow(currentrow, TRUE)
ls_fbillno = THIS.Object.MATNR[currentrow]
dw_head.Object.MATNR[1]=ls_fbillno


对象 函数写法。已经取值标行形式。

 

自我学习。非对外帖子。