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


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

主题：求助 单元格的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 [显示全部帖子]

图片已经上传怎么无法显示图片呢
 回到顶部
帅哥哟，离线，有人找我吗？
kinglw110
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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   这种代码是如何写，我看了帮助 都是对判断列的单元进行样式的更改，

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


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

明白了，谢谢

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

这个代码 写入后没有提供错误与没有反应，不知哪里有问题 请老师再帮忙确认下
 回到顶部
帅哥哟，离线，有人找我吗？
kinglw110
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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.06250 秒, 5 次数据查询