Foxtable(狐表) → 用户栏目 → 专家坐堂 → mouseentercell


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

主题：mouseentercell
帅哥哟，离线，有人找我吗？
lk15502
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00 		mouseentercell  发帖心情 Post By：2017/1/20 14:10:00 [只看该作者]

配缸表的“下一工序”列是备注型，里面有较多字符，在mouseentercell事件代码：；今天单元格显示的信息没有了空的，鼠标放到单元格上能显示里面的信息，是什么原因？老师！
If e.Col.Name = "下一工序" AndAlso e.Row.IsNull("下一工序") = False Then
    e.Table.ShowToolTip(e.Row("下一工序"),e.Row,e.Col)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2017/1/20 14:17:00 [只看该作者]

窗口有一个“下一工序”列更新的按钮代码：原料单元格可以正常显示，今天加了这句代码就不能显示了：dr1("下一工序") = dr1("下一工序") & vbcrlf & "订单总重量:" & dr1("订单重量") & "计划总重量:" & dr1("计划重量")

If _usergroup = "原料坯布仓库" OrElse _userroles.Contains("计划配缸") = True OrElse _userroles.Contains("系统维护") = True Then
    If Tables("计划配缸通知单").Rows.Count > 0 Then
        For Each r1 As Row In Tables("计划配缸通知单").Rows
            r1("下一工序") = Nothing
        Next
        Dim dt1 As DataTable = Tables("计划配缸通知单").DataTable
        Dim dt2 As DataTable = DataTables("染色生产表")     '已染色
        Dim dt3 As DataTable = DataTables("烘剪产量表")     '已烘剪
        Dim dt4 As DataTable = DataTables("定型产量表")     '已打包称重
        Dim dt5 As DataTable = DataTables("成品入库表")     '已入库
        Dim dt6 As DataTable = DataTables("成品库存表")     '已库存
        Dim dt7 As DataTable = DataTables("成品出库表")     '已出库
        For Each dr1 As DataRow In dt1.Select("配缸 = true and 缸号 is not null")
            dr1("下一工序") = dr1("下一工序") & vbcrlf & "订单总重量:" & dr1("订单重量") & "计划总重量:" & dr1("计划重量")
            Dim dr2s As List(Of DataRow) = dt2.SQLSelect("缸号 = '" & dr1("缸号") & "' and 流转日期 is not null")
            If dr2s.Count > 0  Then
                For Each dr2 As DataRow In dr2s
                    If dr1.isnull("下一工序") = True Then
                        dr1("下一工序") = "已染色:" & "染色编号" & "-" & dr2("染色编号") & "|" & "流转日期" & "-" & dr2("流转日期")
                    Else
                        dr1("下一工序") = dr1("下一工序") & vbcrlf & "已染色:" & "染色编号" & "-" & dr2("染色编号") & "|" & "流转日期" & "-" & dr2("流转日期")
                    End If
                Next
            End If
            Dim dr3s As List(Of DataRow) = dt3.SQLSelect("缸号 = '" & dr1("缸号") & "' And 流转日期 Is not null")
            If dr3s.Count > 0 Then
                For Each dr3 As DataRow In dr3s
                    If dr1.isnull("下一工序") = True Then
                        dr1("下一工序") = "已烘剪:" & "烘剪编号" & "-" & dr3("烘剪编号") & "|" & "流转日期" & "-" & dr3("流转日期")
                    Else
                        dr1("下一工序") = dr1("下一工序") & vbcrlf & "已烘剪:" & "烘剪编号" & "-" & dr3("烘剪编号") & "|" & "流转日期" & "-" & dr3("流转日期")
                    End If
                Next
            End If
            Dim dr4s As List(Of DataRow) = dt4.SQLSelect("缸号 = '" & dr1("缸号") & "' and 加工类型 = '打包称重' and 下一工序 = '成品仓库' and 流转日期 is not null")
            If dr4s.count > 0 Then
                For Each dr4 As DataRow In dr4s
                    If dr1.isnull("下一工序") = True Then
                        dr1("下一工序") = "已打包称重:" & "定型编号" & "-" & dr4("定型编号") & "|" & "定型重量" & "-" & dr4("定型重量") & "|" & "定型匹数" & "-" & dr4("定型匹数")
                        
                    Else
                        dr1("下一工序") = dr1("下一工序") & vbcrlf & "已打包称重:" & "定型编号" & "-" & dr4("定型编号") & "|" & "定型重量" & "-" & dr4("定型重量") & "|"  & "定型匹数" & "-" & dr4("定型匹数")
                    End If
                Next
            End If
            Dim dr5s As List(of DataRow) = dt5.SQLSelect("缸号 like '%" & dr1("缸号") & "%'")
            Dim zl5 As Double = 0
            If dr5s.count > 0 Then
                For Each dr5 As DataRow In dr5s
                    zl5 = zl5 + dr5("重量")
                    If dr1.isnull("下一工序") = True Then
                        dr1("下一工序") = "已入库:" & "入库编号" & "-" & dr5("入库编号") & "|" & "重量" & "-" & dr5("重量") & "|" & "匹数" & "-" & dr5("匹数")
                    Else
                        dr1("下一工序") = dr1("下一工序") & vbcrlf & "已入库:" & "入库编号" & "-" & dr5("入库编号") & "|" & "重量" & "-" & dr5("重量") & "|" & "匹数" & "-" & dr5("匹数")
                    End If
                Next
            End If
            Dim dr6s As List(of DataRow) = dt6.SQLSelect("缸号 like '%" & dr1("缸号") & "%'")
            If dr6s.count > 0 Then
                For Each dr6 As DataRow In dr6s
                    If dr1.isnull("下一工序") = True Then
                        dr1("下一工序") = "已库存:" & "入库编号" & "-" & dr6("入库编号") & "|" & "重量" & "-" & dr6("重量") & "|" & "匹数" & "-" & dr6("匹数")
                    Else
                        dr1("下一工序") = dr1("下一工序") & vbcrlf & "已库存:" & "入库编号" & "-" & dr6("入库编号") & "|" & "重量" & "-" & dr6("重量") & "|" & "匹数" & "-" & dr6("匹数")
                    End If
                Next
            End If
            Dim dr7s As List(of DataRow) = dt7.SQLSelect("缸号 like '%" & dr1("缸号") & "%'")
            If dr7s.count > 0 Then
                Dim zl7 As Double = 0
                For Each dr7 As DataRow In dr7s
                    zl7 = zl7 + dr7("重量")
                    If dr1.isnull("下一工序") = True Then
                        dr1("下一工序") = "已出库:" & "出库编号" & "-" & dr7("出库编号") & "|" & "重量" & "-" & dr7("重量") & "|" & "匹数" & "-" & dr7("匹数")
                    Else
                        dr1("下一工序") = dr1("下一工序") & vbcrlf & "已出库:" & "出库编号" & "-" & dr7("出库编号") & "|" & "重量" & "-" & dr7("重量") & "|" & "匹数" & "-" & dr7("匹数")
                    End If
                Next
                If zl7 > 0 AndAlso zl5 > 0 AndAlso zl7 < zl5 Then
                    dr1("下一工序") = dr1("下一工序") & vbcrlf & "已部分完成"
                ElseIf zl7 > 0 AndAlso zl5 > 0 AndAlso zl7 = zl5 Then
                    dr1("下一工序") = dr1("下一工序") & vbcrlf & "已完成"
                End If
            End If
        Next
        dt1.save
    End If
Else
    MessageBox.Show("您没有操作权限!","提示")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/20 14:35:00 [只看该作者]

 你把行拉高一些就能看到了吧？是不是第一行是回车字符了？

 

 dr1("下一工序") = dr1("下一工序") & vbcrlf & "订单总重量:" & dr1("订单重量") & "计划总重量:" & dr1("计划重量")

 

要改成

 

 dr1("下一工序") = iif(dr1.IsNull("下一工序"), "",  dr1("下一工序") & vbcrlf) & "订单总重量:" & dr1("订单重量") & "计划总重量:" & dr1("计划重量")
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2017/1/20 15:29:00 [只看该作者]

老师是这个原因； iif(dr1.IsNull("下一工序"),要在逗号之前加空格，否者报错！

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