主题：麻烦老师指点,动态控件不会自动刷新.(1月9日)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试动态控件.rar

做了个简单的实例,请老师指点....动态控件不会自动刷新....要关闭窗口再打开才有变化...

能否增加一个刷新或重新加载控件的函数?

另问:如何在标记红色SQL语句中再加个条件,[住院登记].出院结账 = False
"select 类型,姓名 From [设置] LEFT JOIN [住院登记] ON [设置].类型 = [住院登记].床位 Where [设置].名称 = '床位'"




动态控件代码,设定在主窗口加载项,首次运行动态控件成功生成

如果住院登记表增加一行并录入数据,设定按钮B为同样的代码,点击按钮B,动态控件无变化....WHY?

Dim cmd As New SQLCommand
cmd.C
dim x,y,i1,i2 as integer
Dim dt As DataTable
cmd.CommandText = "select 类型,姓名 From [设置] LEFT JOIN [住院登记] ON [设置].类型 = [住院登记].床位 Where [设置].名称 = '床位'"
dt = cmd.ExecuteReader()
i2 = dt.datarows.count
Dim rad As WinForm.RadioButton
for y  = 0 to Math.Ceiling(i2/5)-1
    for x = 0 to iif(y = Math.Ceiling(i2/5)-1 and (i2 mod 5)<>0,(i2 Mod 5)-1,4)
        rad = Forms("主窗口").CreateControl("rad" & i1,ControlTypeEnum.RadioButton)
        rad.Text = dt.datarows(i1)("类型") & dt.datarows(i1)("姓名")
        rad.Left = 2+x*80
        rad.Top = y*70
        rad.Width = 80
        rad.Height = 70
        rad.TextAlign = ContentAlignment.BottomCenter
        rad.ImageFile = ProjectPath & "Images\ne.ico"
        rad.ImageAlign = ContentAlignment.TopCenter
        rad.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
        rad.Appearance = System.Windows.Forms.Appearance.Button
        Forms("主窗口").Controls("Panel1").AddControl(rad)
        i1 += 1
    next
next

此主题相关图片如下：001.jpg