循环每一个文件
If e.DataRow.Isnull("合同结算文件") = False Then Dim str As String = "" For Each file As String In e.DataRow.Lines("合同结算文件") str &= "项目\" & e.NewValue & "\合同管理\结算文件\合同结算文件\" & filesys.GetName(file) & vbcrlf Next e.DataRow("合同结算文件") = strEnd If