主题：提示定义的字段太多

需要变通处理

For Each dr As DataRow In DataTables("yxlist").DataRows
    Dim idx As Integer = 0
    For Each dc As DataCol In DataTables("yxlist").DataCols
        If dc.IsNumeric Then
            If dr(dc.Name) =0 Then
                dr(dc.name)=Nothing
            End If
        End If
        idx += 1
        If idx Mod 50 = 1 Then
            dr.save
        End If
    Next
    dr.save
Next

因为你某一行要保存的数据量太多，就会报这个错

改进一下代码

Dim i = 0
For Each dr As DataRow In DataTables("yxlist").DataRows
    i += 1
    Dim idx As Integer = 1
    For Each dc As DataCol In DataTables("yxlist").DataCols
        If dc.IsNumeric Then
            If dr(dc.Name) =0 Then
                dr(dc.name)=Nothing
                idx += 1
            End If
        End If
        If idx Mod 100 = 0 Then
            dr.save
        End If
    Next
    output.show(i)
    'dr.save
Next
DataTables("yxlist").save