Foxtable(狐表)用户栏目专家坐堂 → [求助]afterload代码


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

主题:[求助]afterload代码

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


加好友 发短信
等级:五尾狐 帖子:1139 积分:11245 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]afterload代码  发帖心情 Post By:2018/9/12 11:46:00 [只看该作者]

并列窗口的名称和对应的表名相同,并列窗口打开时,窗口中的ComboBox1取值同名表当前行的[案号]列的值。

但是打开并列窗口时弹出:不存在名称为""的窗口

老师看看是什么原因?谢谢!

 

窗口的afterload代码:

Dim frm As object    '判断并列窗口名称
For Each f As WinForm.Form In Forms
    If f.Tablename = "main" AndAlso f.opened AndAlso f.FormStyle = 0 Then
        Dim tab = f.panel.parent.parent
        Dim p = tab.tabpages(tab.Selectedindex)
        frm = Forms(p.controls(0).name)
        Exit For
    End If
Next

If frm IsNot Nothing Then
'msgbox(frm.Name)
    Dim bh As String = e.Form.Controls("ComboBox1").text
    Dim dr As Row = Tables(frm.Name).Current
    bh = dr("案号")
End If


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


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

 

如果你选择的是【主窗口】,也就是第一个,name是空的。

 

如果选择第二个之后的,我测试没问题。


 回到顶部