Foxtable(狐表)用户栏目专家坐堂 → 动态生成的空间按click没有反应


  共有2869人关注过本帖树形打印复制链接

主题:动态生成的空间按click没有反应

帅哥哟,离线,有人找我吗?
zunwoun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:3096 威望:0 精华:0 注册:2012/5/13 14:59:00
动态生成的空间按click没有反应  发帖心情 Post By:2014/11/24 10:48:00 [只看该作者]

*************************************************************
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等操作都没有反应,我换其他类型的控件也不行,请版主赐教。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/24 10:50:00 [只看该作者]

  什么意思?是上面的代码不执行,还是生成后的button不触发Click事件?

 回到顶部
帅哥哟,离线,有人找我吗?
zunwoun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:3096 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2014/11/24 11:57:00 [只看该作者]

生成没有问题,但生成后的控件执行“click"没有反应

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/24 11:59:00 [只看该作者]

 生成以后,你的click代码写到那里去了?你要写到窗口的全局事件click那里才行

 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12129 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2014/11/24 12:00:00 [只看该作者]

click 在全局事件?

 回到顶部
帅哥哟,离线,有人找我吗?
zunwoun
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:3096 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:3096 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2014/11/24 12:01:00 [只看该作者]

为了测试,只执行一个命令

 回到顶部
帅哥哟,离线,有人找我吗?
zunwoun
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:3096 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2014/11/24 12:02:00 [只看该作者]

其他控件的”click“都有反应,就是动态生成的那部分没有

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/24 14:04:00 [只看该作者]

以下是引用zunwoun在2014-11-24 12:02:00的发言:
其他控件的”click“都有反应,就是动态生成的那部分没有

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
zunwoun
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:3096 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2014/11/24 16:43:00 [只看该作者]

我知道错在那里,在生成控件的时候把form的名字给弄错了,但还是能生成,但不能用"click"触动

 回到顶部