bsp; next
testtable.rows.add(row)
if myBool then '若有从表，递归调用
dim spaces2 as integer
spaces2=spaces+1
ChildRows=myRow.GetChildRows(myRel)
call ShowChildRows(ChildRows,bb,ChildTable,spaces2,myimage.id)
end if
next
End Sub
-------------------------------------------------
事件过程：
在“Tables和ImageButtons的ID的命名规则”一节中给出了命名的规则，这里举例说明：
如果点击了id为e1的ImageButton，它所对应的网页上的Table的id为t1，与t1相关的子表上的相应的记录行在网页上形成id为t1-1,t1-2,...t1-n的Tables，这里 n为子表上的相应的记录行数，而t1-0为子表的字段名行在网页上形成的Table。如果e1的ImageUrl为“”close.gif，则将其设置为“”open.gif，并将t1-0,t1-1,...t1-n的Visible属性设置为True。反之，除了要将e1的ImageUrl改为close.gif和将t1-0,t1-1,...t1-n的Visible属性改为False外，如果t1-1,t1-2,...t1-n有对应id为e1-1,e1-2,...e1-n的ImageButton的，而这些ImageButtons中的某些ImageUrl为open.gif，即子表的子表的某些记录行生成的Tables是打开的，则这些ImageUrl设置为close.gif。
文章标题：Using Web Services Enhancements to Send SOAP Messages with Attachments
程序如下：
Sub ImageButton_Command(Sender as object,e as CommandEventArgs)
dim myControl as Control
dim str1 as string
dim leng as integer
str1=sender.id
leng=len(str1)
str1="t" & mid(str1,2,leng-1) & "-"
if Sender.ImageUrl="close.gif" then
Sender.ImageUrl="open.gif"
testtable.rows.add(row)
if myBool then '若有从表，递归调用
dim spaces2 as integer
spaces2=spaces+1
ChildRows=myRow.GetChildRows(myRel)
call ShowChildRows(ChildRows,bb,ChildTable,spaces2,myimage.id)
end if
next
End Sub
-------------------------------------------------
事件过程：
在“Tables和ImageButtons的ID的命名规则”一节中给出了命名的规则，这里举例说明：
如果点击了id为e1的ImageButton，它所对应的网页上的Table的id为t1，与t1相关的子表上的相应的记录行在网页上形成id为t1-1,t1-2,...t1-n的Tables，这里 n为子表上的相应的记录行数，而t1-0为子表的字段名行在网页上形成的Table。如果e1的ImageUrl为“”close.gif，则将其设置为“”open.gif，并将t1-0,t1-1,...t1-n的Visible属性设置为True。反之，除了要将e1的ImageUrl改为close.gif和将t1-0,t1-1,...t1-n的Visible属性改为False外，如果t1-1,t1-2,...t1-n有对应id为e1-1,e1-2,...e1-n的ImageButton的，而这些ImageButtons中的某些ImageUrl为open.gif，即子表的子表的某些记录行生成的Tables是打开的，则这些ImageUrl设置为close.gif。
文章标题：Using Web Services Enhancements to Send SOAP Messages with Attachments
程序如下：
Sub ImageButton_Command(Sender as object,e as CommandEventArgs)
dim myControl as Control
dim str1 as string
dim leng as integer
str1=sender.id
leng=len(str1)
str1="t" & mid(str1,2,leng-1) & "-"
if Sender.ImageUrl="close.gif" then
Sender.ImageUrl="open.gif"
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
