Question

尝试编写一些代码，通过用户界面更改XML文件中的元素顺序。问题是：我如何控制物理存储顺序元素是通过WriteXML

写入的

例如，我想转换：

<Image Name="Middle" file="Sauce.png" />
<Image Name="Top" file="Cheese.png" />
<Image Name="Bottom" file="PizzaBase.png" />

为：

<Image Name="Top" file="Cheese.png" />
<Image Name="Middle" file="Sauce.png" />
<Image Name="Bottom" file="PizzaBase.png" />

在文件中。到目前为止的方法：

.xml＆gt;数据集＆gt; datagridview（bound dataset.table）

这很好用，允许用户上下移动行/元素。当我在Locals中查看时，行的任何移动都会反映在Dataset.table中（即如果“Cheese”在DatagridView中移动到顶部，它也位于数据集的顶部）。

但是，当我通过XMLWriter将其写回XML时，任何移动的行都会附加到xml的 bottom ，而不是与数据集的顺序相同。例如，如果我向上移动“Cheese”，则输出显示为：

<Image Name="Middle" file="Sauce.png" />
<Image Name="Bottom" file="PizzaBase.png" />
<Image Name="Top" file="Cheese.png" />

在周围搜索 - 找不到任何相关内容。有人有什么想法吗？

编辑：这是我重新排序行的方式：

 Private Sub _RigRowUp_Click(sender As Object, e As EventArgs) Handles _RigRowUp.Click
        If IsNothing(_RigImgsDGV.DataSource)
            Return
        End If
        Dim selectedRow As DataRow = _RigXMLImgsDS.Tables("Image").Rows(_RigImgsDGV.CurrentRow.Index)
        Dim selectedindex As Integer = _RigXMLImgsDS.Tables("Image").Rows.IndexOf(selectedRow)
        If selectedindex <= 0 Then
            Return
        End If
        Dim newRow As DataRow = _RigXMLImgsDS.Tables("Image").NewRow()
        newRow.ItemArray = selectedRow.ItemArray
        _RigXMLImgsDS.Tables("Image").Rows.Remove(selectedRow)
        _RigXMLImgsDS.Tables("Image").Rows.InsertAt(newRow, selectedindex - 1)
        _RigImgsDGV.ClearSelection()
        _RigImgsDGV.CurrentCell = _RigImgsDGV.Rows(selectedindex - 1).Cells(0)
        _RigImgsDGV.Rows(selectedindex - 1).Selected = True
    End Sub

_RigXMLImgsDS是DataSet RigImgsDGV是DataGridView

通过以下方式绑定在公共子区域内：

  _RigImgsDGV.DataSource = New BindingSource(_RigXMLImgsDS.Tables("Image"), Nothing)

Answer 1

终于想通了。您必须将数据集中的更新表写入临时表，然后清除数据集中的表，然后将临时表的行逐个写回数据集中的匹配表。代码（道歉直接从完整的脚本解除，但应该说明过程）：

Dim _tempDT As DataTable
    _tempDT = _RigXMLImgsDS.Tables("Image").Copy()
    _RigXMLImgsDS.Tables("Image").Clear()
    For Each DataRow In _tempDT.Rows
        _RigXMLImgsDS.Tables("Image").ImportRow(DataRow)
    Next

然后像往常一样使用XMLWriter。感谢Plutonix。

保留数据集行顺序XmlWriter vb

1 个答案: