主题：[求助]格式化日期

要把日期列格式化为 年月

比如 2018-10-12 格式化为 201810

 format（“日期”，yyyymm）不对，应该如何修改

1、什么时候要格式化？

 

2、drawcell事件

 

If e.col.name = "开始日期" AndAlso e.text > "" Then

    e.text = format(cdate(e.text), "yyyy年MM月dd日")

End If

我之前测试过成功，后来忘记了，就是有两列，一列日期，一列是年月，输入日期2018-10-12后，年月列自动填入 201810，用的是format

datacolchanged事件

 

If e.datacol.name = "日期" Then

    If e.newvalue = nothing then

        e.datarow("年月") = nothing

    Else

        e.datarow("年月") = Format(e.newvalue, "yyyyMM")

    End If

End If

请老师再帮忙看看该如何修改 datacolchanged事件

 

Select e.DataCol.Name
    Case "日期"
        Dim lb As String ="Y"
        If e.DataRow("单号").StartsWith(lb) = False '如果单据编号前缀不符
            Dim idx As Integer = e.DataRow("_Identify")
            e.DataRow("单号") = lb & Format(idx,"000000")
            e.DataRow("年月") = Format(e.newvalue,"YYYYMM")
        End If
End Select

Select e.DataCol.Name
    Case "日期"
        Dim lb As String ="Y"
        If e.DataRow("单号").StartsWith(lb) = False '如果单据编号前缀不符
            Dim idx As Integer = e.DataRow("_Identify")
            e.DataRow("单号") = lb & Format(idx,"000000")
        End If
        If e.newvalue = Nothing Then
            e.DataRow("年月") = Nothing
        Else
            e.DataRow("年月") = Format(e.newvalue, "yyyyMM")
        End If     
End Select

谢谢！

这个代码有个问题，年月是空白的话可以改写，不是空白不能改写。或者之前按照2018-10-12输入，会自动填入201810，如果改为2018-11-12，不能同步更新为201811

6楼代码没问题。

谢谢，麻烦帮我看看这个代码，关联订单日期 不能同步更新的原因，比如改了父表，子表不能同步更改。也导不出正确的年月

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test (3).table