以文本方式查看主题

-  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
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:规划管理系统.foxdb