以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 日期转换无效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117069) |
||||
-- 作者:有点甜 -- 发布时间:2018/4/6 14:28:00 -- If Forms("项目资料").Opened() Dim t1 As Table = Tables("节点进度表") Dim t2 As Table = Tables("项目资料_Table2") If t1.TopVisibleRow >=0 AndAlso t1.Rows.count > 0 Then Dim r As Row = t1.Rows(t1.TopVisibleRow) Dim dt As Date = r("计划_开始日期") Dim nm As String = dt.Year & "年" & dt.Month &"月_" & dt.Day Dim idx As Integer= t2.cols(nm).Index t2.LeftVisibleCol = idx End If End If |
||||
-- 作者:有点甜 -- 发布时间:2018/4/6 17:35:00 -- 1、先看
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116712&authorid=0&page=0&star=2
2、上传具体实例说明 |
||||
-- 作者:有点甜 -- 发布时间:2018/4/6 18:50:00 --
|