主题：[求助] 后台数据无法写入

Dim dt As DataTable = DataTables("订单表")

Dim dr As DataRow = dt.SQLFind(fi)
If dr IsNot Nothing Then
    Dim st As String = "|审核日期"
    MessageBox.Show(dr("单据编号"))
    Dim tx() As String
    tx = st.Split("|")
    dr("更改更新") = True
    dr("更改原因") = "修改"
    For ii As Integer = 0 To tx.Length -1
        If tx(ii) > "" Then
            MessageBox.Show(tx(ii)) '显示 审核日期
            dr(tx(ii)) = Date.Today '#2017-05-23#
        End If
    Next
    dr.save
End If