Dim i As Integer=len(CStr(e.DataRow("起始时间")))e.DataRow("记录标记")=CStr(e.DataRow("起始时间")).SubString(0,i) & e.DataRow("工序") & e.DataRow("卷号")
改成
e.DataRow("记录标记") = Format(e.DataRow("起始时间"), "yyyy-MM-dd") & e.DataRow("工序") & e.DataRow("卷号")