主题：谁能帮我转换一段代码？

简单：

Select Case e.DataCol.Name
    Case "chuhuodate"
        Dim dr As DataRow = e.DataRow
        Dim s As String = dr("_Identify")
        dr("chuhuodan2") = "XS" & s.PadLeft(6,"0")
End Select