主题：我想做一个清空按钮，如何清空当前行数据，但不删除该行。代码如何写？

For Each dc As DataCol In DataTables("表A").DataCols
    Dim pi As System.Reflection.PropertyInfo = dc.Gettype.getproperty("IsTemporary",Reflection.BindingFlags.nonpublic Or Reflection.BindingFlags.Instance)
    If pi.getvalue(dc,Nothing) = False
        DataTables("表A").ReplaceFor(dc.Name, Nothing)
    End If
Next