主题：[求助]代码编写

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

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)

是想把字符串截短