脐带血间充质干细胞:有人会VF编程吗？

来源：百度文库编辑：高校问答时间：2024/05/07 02:27:37

SET ORDER TO 商品名称
FindStr="商品基本信息.商品名称=ALLTRIM(Thisform.Text1.Value)"
DO CASE thisform.Combo1.Value=3
SET ORDER TO 供货商名称
FindStr="商品基本信息.供货商名称=ALLTRIM(Thisform.Text1.Value)"
ENDCASE

SEEK ALLTRIM(Thisform.Text1.Value)
IF FOUND()
Thisform.WindowState=1
DO WHILE&Findstr
thisform.grd商品基本信息.SETFOCUS
thisform.grd商品基本信息.Refresh()
IF MESSAGEBOX("这是你需要的记录吗?",4+32,"查找信息")=6
EXIT
ELSE
SKIP
ENDIF
ENDDO

IF !(&Findstr)
=MESSAGEBOX("未找到你指定的记录!!",16,"查找信息")
GO oldRecord
ENDIF
Thisform.WindowsState=0
ELSE
=MESSAGEBOX("未找到指定的记录!!",16,"搜索")
GO oldRecord
ENDIF

SET ORDER TO 商品编码

请问这段代码的详细意思是什么？最好是能在每一句后面注解，谢谢啦！毕业设计急需！

有人会VF编程吗？ VF财务软件编程 VF编程问题 VF编程高手帮忙！ VF编程题 VF编程高手进~~~~ VF编程问题 VF编程问题 vf编程高手进来! vf编程问题: