*************************************************************
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等操作都没有反应，我换其他类型的控件也不行，请版主赐教。
加好友 
发短信
Post By：2014/11/24 10:48:00 [显示全部帖子]
