For Each dc As DataCol In e.DataTable.DataCols
If e.DataTable.DataCols.Contains(dc.name & "大写") Then
If e.DataRow.IsNull(dc.name) = False Then
e.DataRow(dc.name & "大写") = CUMoney(format(e.DataRow(dc.name), "0.00"))
Else
e.DataRow(dc.name & "大写") = Nothing
End If
End If
Next