Foxtable(狐表)用户栏目专家坐堂 → 动态增加记录窗口


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

主题:动态增加记录窗口

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


加好友 发短信
等级:三尾狐 帖子:658 积分:7932 威望:0 精华:0 注册:2013/12/11 17:49:00
动态增加记录窗口  发帖心情 Post By:2019/6/1 14:59:00 [显示全部帖子]

请问一下动态增加的记录窗口怎么设置背景颜色?  

 

以下这段代码  对存在的记录窗口是可以的   通过代码新增的 就报错了

 

        ''''''''锁定列  必填列涂色
        'Dim g = Forms(e.Form.Name).Controls(jls).basecontrol
        'g.Styles.normal.Border.Style = 3
        'g.styles.Normal.Border.Color = Color.Black
        'g.styles.Normal.Border.width = 3
        'Dim Multi As String =dr("锁定列")
        'If Multi> "" Then
            'Dim Values() As String
            'Values = Multi.split("|")
            'For idx As Integer = 0 To Values.Length - 1
                'Tables("合同").Cols( Values(idx) ).AllowEdit =False
                'g.GetCellStyle(   Tables("合同").Cols( Values(idx) ).Index  ,1).BackColor = Color.Gainsboro
            'Next
        'End If
        'Dim btl As String =dr("必填字段")
        'If btl> "" Then
            'Dim jcbts() As String = btl.split("|")
            'For Index As Integer = 0 To jcbts.Length - 1
                'g.GetCellStyle(   Tables(e.Form.Name).Cols( jcbts(Index) ).Index    ,1).BackColor = Color.pink
            'Next
        'End If
        ''''''''锁定列  必填列涂色

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:动态增加控件.foxdb

[此贴子已经被作者于2019/6/1 15:03:59编辑过]

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


加好友 发短信
等级:三尾狐 帖子:658 积分:7932 威望:0 精华:0 注册:2013/12/11 17:49:00
  发帖心情 Post By:2019/6/1 16:07:00 [显示全部帖子]

谢谢老师   但是还是报错

我知道错在哪了  是因为记录窗口 找不到那列导致的

 请问怎么获取记录窗口列名?

[此贴子已经被作者于2019/6/1 16:41:17编辑过]

 回到顶部