Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助 单元格的STYLE 设置


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

主题：求助 单元格的STYLE 设置
帅哥哟，离线，有人找我吗？
kinglw110
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：101 积分：715 威望：0 精华：0 注册：2017/8/18 15:07:00 		求助 单元格的STYLE 设置  发帖心情 Post By：2018/1/2 9:41:00 [只看该作者]

在产品名称的combobox 的VALUECHANGED 的事件作判断   如果输入的产品在数据更改统计表中有记录并且修改状态不是“已经完成”，弹出对话框 ，现在我想要在当前表产品列与编号列 作STYLE 样式 （红色）表示
，在下面代码中如何增加

Dim cz As WinForm.ComboBox = e.sender
Dim nm As String =cz.text
Dim dr As DataRow
dr = DataTables("数据更改统计表").Find("产品名称 ='" & nm & "'","接收时间 desc",0) '找出最后更改的记录
If dr IsNot Nothing Then '如果找到的话
If dr("修改状态")<>"修改完成" Then
    MessageBox.show("请确认模具是否已经调整,内容如下" & Chr(13) & Chr(10) & "通知时间:" & dr("接收时间") & Chr(13) & Chr(10) & dr("备注说明"),"产品更改提醒",MessageBoxButtons.OKCancel)
End If

End If 
[此贴子已经被作者于2018/1/2 9:42:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
kinglw110
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：101 积分：715 威望：0 精华：0 注册：2017/8/18 15:07:00 		  发帖心情 Post By：2018/1/2 9:43:00 [只看该作者]

图片已经上传怎么无法显示图片呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

方法一：加一个辅助字段，给辅助字段赋值；在drawcell事件判断辅助字段的值，显示不同样式；

 

方法二：直接在drawcell事件，写代码find，如果找到匹配数据，就显示不同样式。

 

http://www.foxtable.com/webhelp/scr/0656.htm

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


加好友 发短信
等级：幼狐 帖子：101 积分：715 威望：0 精华：0 注册：2017/8/18 15:07:00 		  发帖心情 Post By：2018/1/2 13:07:00 [只看该作者]

比如我想通过对表A 的第3列 判断，如果成立 那么表A 的第1列  第2列  采用样式1   这种代码是如何写，我看了帮助 都是对判断列的单元进行样式的更改，

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


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

drawcell事件

 

If e.col.name = "第一列" orelse e.col.name = "第二列" then

    If e.row("第三列") = "123" Then

        e.style = "样式1"

    End If

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


加好友 发短信
等级：幼狐 帖子：101 积分：715 威望：0 精华：0 注册：2017/8/18 15:07:00 		  发帖心情 Post By：2018/1/2 15:48:00 [只看该作者]

明白了，谢谢

还有一个问题就是打开项目的时候 想让所有表的可见行 只显示最新的20行，这个如何实现，  TopVisibleRow 只有Table  表有，datatable 没有这个属性
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

分页加载、动态加载，看看

 

http://www.foxtable.com/webhelp/scr/1933.htm

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


加好友 发短信
等级：幼狐 帖子：101 积分：715 威望：0 精华：0 注册：2017/8/18 15:07:00 		  发帖心情 Post By：2018/1/2 16:09:00 [只看该作者]

Dim dr As DataRow
Dim dr2 As DataRow
Dim nm As String=e.Row("产品名称")

If e.Col.name="产品名称" Then
    If e.Row.Isnull("产品名称")=False  '已经输入了内容
        
        dr = DataTables("数据更改统计表").Find("产品名称 ='" & nm & "'","接收时间 desc",0) '找出最后更改的记录
        If dr IsNot Nothing Then '如果找到的话
            If dr("修改状态")<>"修改完成" Then               
                e.Style = "红色"
            End If
            
        End If
    End If
End If

这个代码 写入后没有提供错误与没有反应，不知哪里有问题 请老师再帮忙确认下
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你设置样式了没有？

 

 

你的表格是主表还是窗口表？窗口表要这样设置样式  http://www.foxtable.com/webhelp/scr/2628.htm

 

不会做，那就做个例子发上来测试。
 回到顶部
帅哥哟，离线，有人找我吗？
kinglw110
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：101 积分：715 威望：0 精华：0 注册：2017/8/18 15:07:00 		  发帖心情 Post By：2018/1/3 7:53:00 [只看该作者]

代码是正确的，这个表的样式未设置，以为所有表的样式可以通用的，

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