以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态生成的空间按click没有反应  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60388)

--  作者:zunwoun
--  发布时间:2014/11/24 10:48:00
--  动态生成的空间按click没有反应
*************************************************************
Dim 窗口名 As String="总经理审核出纳"
Dim 数据库 As String="总经理审核出纳_出纳交易审批记录"
Dim 面板名 As String="交易列示"
For Each c As Winform.Control In forms(窗口名).Controls
    If c.name.StartsWith("列示") Then
        forms(窗口名).RemoveControl(c.Name)
    End If
Next
Dim i As Integer=0
For Each dr As DataRow In Tables(数据库).DataTable.DataRows    
    Dim lbl1 As WinForm.Control
    lbl1 = forms("产品查询").CreateControl("列示" & dr("交易号" ), ControlTypeEnum.Button)
    forms(窗口名) .Controls(面板名).AddControl(lbl1)

     With forms(窗口名).Controls("列示" & dr("交易号"))    
        .Left = forms(窗口名 ).Controls(面板名).Width*0.1
        .Top = forms(窗口名 ).Controls(面板名).Width*(i*0.18+0.03)
        .Width = forms(窗口名 ).Controls(面板名).Width*0.8
        .Height= forms(窗口名 ).Controls(面板名).Width*0.15
       .text=dr("交易日期") & "," & dr("交易内容") & ","  & dr("收入方") & ","  & dr("支出方") & ",交易金额¥"  & format(dr("交易金额"),"000" & "元")
    End With
    i=i+1
Next


********************************************
上述代码动态生成Button控件按click等操作都没有反应,我换其他类型的控件也不行,请版主赐教。

--  作者:有点甜
--  发布时间:2014/11/24 10:50:00
--  
  什么意思?是上面的代码不执行,还是生成后的button不触发Click事件?
--  作者:zunwoun
--  发布时间:2014/11/24 11:57:00
--  
生成没有问题,但生成后的控件执行“click"没有反应
--  作者:有点甜
--  发布时间:2014/11/24 11:59:00
--  
 生成以后,你的click代码写到那里去了?你要写到窗口的全局事件click那里才行
--  作者:逛逛
--  发布时间:2014/11/24 12:00:00
--  
click 在全局事件?
--  作者:zunwoun
--  发布时间:2014/11/24 12:01:00
--  
msgbox(e.Sender.Name)
If e.Sender.Name.StartsWith("列示") Then

  \'  Dim 交易号 As String = e.Sender.Name.SubString(2)

   \' Dim cmd As New SQLCommand
  \'  cmd.C
   \' cmd.CommandText = "update {出纳交易审批记录} set [总经理审批]=1 where 交易号=\'" & 交易号 & "\'"
  \'  cmd.ExecuteNonQuery()
  \'  Tables("总经理审核出纳_出纳交易审批记录").Fill("Select * From {出纳交易审批记录} where 总经理审批= 0 and 会计审批=1","zunwoun",False)
  \'  Functions.Execute("总经理审核出纳_交易列示")
End If

--  作者:zunwoun
--  发布时间:2014/11/24 12:01:00
--  
为了测试,只执行一个命令
--  作者:zunwoun
--  发布时间:2014/11/24 12:02:00
--  
其他控件的”click“都有反应,就是动态生成的那部分没有
--  作者:有点甜
--  发布时间:2014/11/24 14:04:00
--  
以下是引用zunwoun在2014-11-24 12:02:00的发言:
其他控件的”click“都有反应,就是动态生成的那部分没有

 

不可能吧?做个例子上传上来看看。


--  作者:zunwoun
--  发布时间:2014/11/24 16:43:00
--  
我知道错在那里,在生成控件的时候把form的名字给弄错了,但还是能生成,但不能用"click"触动