认真理解一下示例三：
http://www.foxtable.com/webhelp/topics/0396.htm
With wb.AddPanelGroup("page3","pg3","报名查询")
wb.AddForm("page3","form2","bmcx.htm")
Dim dr As DataRow =DataTables("users").Find("name='" & username & "'" )
if dr isnot nothing then
Dim dr2 As DataRow =DataTables("interest_classes").find("id='" & dr("interestid") & "'" )
if dr2 isnot nothing then
With wb.AddPreview("form2","pv2","","")
.AddItem("学生姓名","申报社团名称")
.AddItem(username,dr2("name"))
.Addbutton("辅助操作", "http://www.foxtable.com", 0)
.Addbutton("操作", "", 1, "")
End With
end if
end if
End With
加好友 
发短信
Post By：2023/9/9 8:33:00 [显示全部帖子]
