一个程序不会写,帮帮忙
是这样的,我有一个程序,想了好久不知怎么写这个程序,
程序图一如下:
也就是说:我在图一中按一下那省略号那个按钮,我就可以跳到第三个页面,进行输入相应的内容,并且每一个LABLE像是一个组,组里面包函11个缸号,缸号中又对应三个状态,图一中,有很多的LABLE组,也一样的跳转,也是在第三个页面中输入相应的内容,问题就是我要把这些内容都保存在同一个表里面,并且可以区分出,每一组,每一个组缸号里面的状态,和不同的缸号,并且,到时,我要筛选出相应状态的内容,进行打印,
图二如下,
只要能够做到,问题就是我要把这些内容都保存在同一个表里面,并且可以区分出,每一组,每一个组缸号里面的状态,和不同的缸号,并且,到时,我要筛选出相应状态的内容,进行打印,
LABLE它代表的意思是:假如说:4000它包函三个缸号,并且有不同的状态,比如说已染,可完成,可生产,同样的,3000,它有包函和4000一样,也就是LABLE11,13等,代表的4000,3000
听别人说,在那个省备号按钮中,可以写这个程序,程序如下:只写了开头但还是有错:不知怎么写下去:但,思路是这样的.
Lparameters
sele *;
from bsgh
where form_no=L_form.and.sta="1";
into table ((GetTempFile(W_Zmp)))
thisform.sele2=select()
thisform.alias2=alias()
if _tally=0
append blank
endif
brow
private Tmp1,Lpa,I
LPa=AllTrim(This.Parent.Text1.value)
Ldt1=This.Parent.Text2.value
Ldt2=This.Parent.Text3.value
Ldt3=This.Parent.Text4.value
Ldt4=This.Parent.Text5.value
Ldt5=This.Parent.Text6.value
Ldt6=This.Parent.Text7.value
Ldt7=This.Parent.Text8.value
Ldt8=This.Parent.Text9.value
Ldt9=This.Parent.Text10.value
Ldt10=This.Parent.Text11.value
Ldt11=This.Parent.Text12.value
Ldt12=This.Parent.Text13.value
Ldt13=This.Parent.Text14.value
Ldt14=This.Parent.Text15.value
