Foxtable(狐表)用户栏目专家坐堂 → [求助]有人遇到过某列里有内容但是看不到的情况么?


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

主题:[求助]有人遇到过某列里有内容但是看不到的情况么?

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


加好友 发短信
等级:幼狐 帖子:57 积分:569 威望:0 精华:0 注册:2015/12/2 22:37:00
[求助]有人遇到过某列里有内容但是看不到的情况么?  发帖心情 Post By:2016/5/23 21:15:00 [只看该作者]

如题,我有一个出货记录表。今天就在DataColChanged里写了一段这样的代码

If e.DataCol.Name = "出货日期" Then
    If e.DataRow.IsNull("出货日期") Then
        e.DataRow("出货单号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("出货日期"),"yyyyMMdd") '取得编号的8位前缀
        If e.DataRow("出货单号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(出货单号)","出货日期 = #" & e.DataRow("出货日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(13,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("出货单号") = "NQCK" & bh & "-" & Format(idx,"000")
        End If
    End If
End If

结果傻了,客户名称和制表人两列看不到内容了。
但是,双击这两列里的任何一行,都能看到原来的内容。



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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/23 21:20:00 [只看该作者]

你的问题和你的代码没有一点关系。

 

看不到,你把行拉高一点可以看到。


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


加好友 发短信
等级:幼狐 帖子:57 积分:569 威望:0 精华:0 注册:2015/12/2 22:37:00
  发帖心情 Post By:2016/5/23 21:22:00 [只看该作者]

傻缺了我,哈哈哈。哎······

谢谢!

 回到顶部