2,722
社区成员
发帖
与我相关
我的任务
分享
Create Cursor oInfo (oName C(40),oType C(40),oVal C(100))
m.oItems=Thisform.webbrower1.Document.getelementsbytagname("Input")
For Each m.oItem In m.oItems
Insert Into oInfo (oName,oType,oVal) Values (m.oItem.Name,m.oItem.Type,m.oItem.Value)
Endfor
Locate
Browse
loInputNum=Thisform.webbrower1.Document.getelementsbytagname("Input")
lnInputNum=loInputNum.Length
For lnI=1 To lnInputNum
?loInputNum.Item(lnI).Value
Endfor