Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】AddUserStyle 代码设置格式应用无效


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

主题：【求助】AddUserStyle 代码设置格式应用无效
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		【求助】AddUserStyle 代码设置格式应用无效  发帖心情 Post By：2019/12/31 14:19:00 [只看该作者]

窗口表类型  SQLQuery

窗口打开表设置的代码   
Tables(e.form.name & "_Table1").Fill ("S elect [工序],[工序承诺期],[单号],[员工姓名],数量,金额 From [今日计划明细] where 工序= '" & Vars("gxmc") & "' And  DateDiff(dd,工序承诺期,getdate())>=0","zzkb",True)       '从数据库取数
Tables(e.form.name & "_Table1").SetColVisibleWidth("工序|100|工序承诺期|150|单号|190|员工姓名|100|数量|100|金额|20")   '列宽
Tables(e.form.name & "_Table1").Font = new font ("微软雅黑",16,fontstyle.bold)   '字体大小
Tables(e.form.name & "_Table1").DefaultRowHeight = 61  '行高
Tables(e.form.name & "_Table1").ExtendLastCol = True '自动调整最后一列的宽度,以适用表宽
Tables(e.form.name & "_Table1").SetHeaderRowHeight(50) '标题行高ExtendLastCol
Tables(e.form.name & "_Table1").UseVisualStyle  = False   '关闭界面风格
Tables(e.form.name & "_Table1").DataTable.SysStyles("SelectedColumnHeader").backColor = Color.white  '选中列标题区的背景颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("SelectedRowHeader").BackColor = Color.White  '选中列标题区的背景颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("Focus").backColor = Color.white  '焦点单元格的背景颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("Focus").ForeColor = Color.blue  '焦点单元格的字体颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("Normal").BackColor = Color.white '数据区背景颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("Normal").foreColor = Color.blue  '据区字体颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("Fixed").foreColor = Color.red   '指定标题区的字体颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("EmptyArea").BackColor = Color.white  '空白区背景颜色
Tables(e.form.name & "_Table1").DataTable.SysStyles("Fixed").backColor = Color.white  '指定标题区的背景颜色
Tables(e.form.name & "_Table1").Cols("工序").TextAlign = HorizontalAlignment.Center      '文本居中对齐
Tables(e.form.name & "_Table1").Cols("工序承诺期").TextAlign = HorizontalAlignment.Center      '文本居中对齐
Tables(e.form.name & "_Table1").Cols("单号").TextAlign = HorizontalAlignment.Center      '文本居中对齐
Tables(e.form.name & "_Table1").Cols("员工姓名").TextAlign = HorizontalAlignment.Center      '文本居中对齐
Tables(e.form.name & "_Table1").Cols("数量").TextAlign = HorizontalAlignment.Center      '文本居中对齐
Tables(e.form.name & "_Table1").Cols("金额").TextAlign = HorizontalAlignment.Center      '文本居中对齐
'MessageBox.Show(8)
With DataTables(e.form.name & "_Table1")
    .LoadFilter = "工序= '" & Vars("gxmc") & "' and  DateDiff(dd,工序承诺期,getdate())>=0"   '清除加载条件
    .LoadPage = 0      '加载第一页
    .LoadTop = 4        '每页7行
    .LoadOver = "id"
    .Load()
    e.Form.Controls("TextBox4").Value = (.LoadPage + 1) & "/" & .TotalPages    '显示页数状态
End With
If Tables(e.form.name & "_Table1").rows.count < 4 Then Tables(e.form.name & "_Table1").addnew(4-Tables(e.form.name & "_Table1").rows.count)   '不够6行补6行
Tables(e.form.name & "_Table1").RowHeaderVisible = False  '隐藏行号列
DataTables(e.form.name & "_Table1").AddUserStyle("未派工", Color.Red, Color.White)
DataTables(e.form.name & "_Table1").AddUserStyle("a", Color.Red, Color.White)

DrawCell  代码

If e.Col.Name = "员工姓名" Then
    If e.Row("员工姓名") = "未派工" Then
        e.Style = "a"
    End If
End If



图片点击可在新窗口打开查看此主题相关图片如下：代码.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106664 积分：542503 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/31 14:24:00 [只看该作者]

使用Fill的，到全局表事件drawcell写代码

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/12/31 14:36:00 [只看该作者]

还是不行

DrawCell 全局表代码

Select Case e.Table.Name
    Case "工序数字化看板_Table1"
        If e.Col.Name = "员工姓名" Then
            If e.Row("员工姓名") = "未派工" Then
                e.Style = "a"
            End If
        End If
End Select
工序数字化看板 窗口打开事件依旧为
DataTables(e.form.name & "_Table1").AddUserStyle("a", Color.Red, Color.White)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106664 积分：542503 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/31 14:38:00 [只看该作者]

开启DrawCell事件了吗？

DataTables(e.form.name & "_Table1").AddUserStyle("a", Color.Red, Color.White)
DataTables(e.form.name & "_Table1").GlobalHandler.DrawCell = True
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/12/31 14:42:00 [只看该作者]

开启了  依旧没有达到想要的效果
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/12/31 14:45:00 [只看该作者]

是不是还需要在下一页代码内重新设置一下呢


图片点击可在新窗口打开查看此主题相关图片如下：代码.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106664 积分：542503 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/31 14:49:00 [只看该作者]

做个例子发上来看看

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/12/31 15:20:00 [只看该作者]

案例已经上传
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test.zip
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2019/12/31 15:38:00 [只看该作者]

数据库备份在data文件夹  恢复就可以用哈

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106664 积分：542503 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/31 15:52:00 [只看该作者]

"员工姓名" 列类型改为nvarchar(10)，并把数据库里"员工姓名" 列里面多余的空格去掉。char和nchar类型是定长字段，长度不足数据库会自动补充空格的

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询