如下代码，MessageBox可以正常显示 ，但是数据 无法写入后台，，，数据库是Sql。
Dim fi As String = "单据编号 = 'SEORD006441'"
Dim dt As DataTable = DataTables("订单表")
Dim dr As DataRow = dt.SQLFind(fi)
If dr IsNot Nothing Then
Dim st As String = "|审核日期"
MessageBox.Show(dr("单据编号")) '显示SEORD006441
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)) '显示 审核日期
' MessageBox.Show(r(tx(ii)))
dr(tx(ii)) = Date.Today '#2017-05-23#
End If
Next
End If
加好友 
发短信
Post By：2017/6/1 22:05:00 [显示全部帖子]
