Select Case e.Col.Name

    Case "日期"

        If e.row.Isnull("日期") = False

            e.text = CLDate(e.row("日期"))

        End If

End Select

2、导入狐表代码是：

Dim doc = vars("doc")

doc.saved = True

Dim c As String = "第一列"

Dim s As String = StrToWide(" ")

Dim dr As Row = CurrentTable.AddNew

For Each k As object In doc.Paragraphs

    If Len(Trim(k.Range.text)) > 1 Then

        Select Case k.Range.text.TrimStart(" ",s).SubString(0,2)

            Case "B:"

                c = "第二列"

            Case "C:"

                c = "第三列"

            Case "D:"

                c = "日期"

        End Select

        dr(c) &= k.Range.text & vbcrlf

    End If

Next

dr("第一列") = dr("第一列").TrimEnd(vbcr,vblf)

dr("第二列") = dr("第二列").TrimEnd(vbcr,vblf)

dr("第三列") = dr("第三列").TrimEnd(vbcr,vblf)

dr("日期") = dr("日期").TrimEnd(vbcr,vblf)