Dim s As String Dim i As Integer Dim dr As DataRow = e.DataRow If e.DataCol.Name = "数据列" Then If e.DataRow.IsNull("数据列") Then dr("图片列") = Nothing Else For i = 0 to Len(dr("数据列"))-1 s = s & dr("数据列").SubString(i,1) & ".jpg" & Chr(13) & Chr(10) Next dr("图片列") = s End If End If