主题：所有的大写列中实现与对应的前一列的金额自动输入大写金额，怎么样写代码？

DataColChanged事件

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(e.DataRow(dc.name))
        Else
            e.DataRow(dc.name & "大写") =  Nothing
        End If
    End If
Next