主题：[求助]代码编写

下面代码注释掉的三行有问题，但不知如何修改，求老师指教！谢谢！

If e.DataCol.Name = "发放状况" AndAlso e.DataRow("发放状况") = True Then
    Dim dr As DataRow = DataTables("TXJL_W0110").AddNew
    For Each dc As DataCol In DataTables("TXJL_W0110").DataCols
        dr("GB103") = e.DataRow("GB103")
        dr("HGB103") = e.DataRow("HGB103")
        dr("GS901") = e.DataRow("GS901")
        dr("GB000") = e.DataRow("GB000")
        dr("GB001") = e.DataRow("GB001")
        dr("GS601") = e.DataRow("GS601")
        dr("GS602") = e.DataRow("GS602")
        '         dr("GS603") = e.DataRow("GS603").Replace("-",".")
        dr("GS604") = e.DataRow("GS604")
        dr("HGS604") = e.DataRow("HGS604")
        dr("GS605") = e.DataRow("GS605")
        dr("GS606") = e.DataRow("GS606")
        'dr("GS607") = e.DataRow("GS607").SubString(11,16)
        dr("GS608") = e.DataRow("GS608")
        dr("HGS608") = e.DataRow("HGS608")
        '         dr("GS1002") = e.DataRow("GS1002")
        dr("GS999") = e.DataRow("GS999")
        dr("HGS601") = e.DataRow("HGS601")
        dr("GS609") = e.DataRow("GS609")
        dr("HGS609") = e.DataRow("HGS609")
    Next
End If

dr("GS603") = e.DataRow("GS603").Replace("-",".")

是想把数据格式由2015-08-14转换为2015.08.14

        'dr("GS607") = e.DataRow("GS607").SubString(11,16)

是想把字符串截短

谢谢大红袍老师！我再试试。

第一、第二都是要将日期列转为字符型

第三，应该是字符长度的问题

        dr("GS603") = e.DataRow("GS603").Replace("-",".")

表A"GS603"是日期列，表B"GS603"是字符型，报错如下：

.NET Framework 版本：2.0.50727.8662
Foxtable 版本：2014.11.11.1
错误所在事件：表，TXJL_TXJL，DataColChanged
详细错误信息：
调用的目标发生了异常。
未找到类型“Date”的公共成员“Replace”。