With Tables("基础表")
If .Current IsNot Nothing Then
If MessageBox.Show("是否删除当前行?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
If cstr(.Current("状态")).Length > 0 Then
MessageBox.Show("已经有关联的单据,禁止删除!")
Else
''''''-------查找上道工序基础表,状态为当前表的编号,将状态设置""空
Dim tb_jgdh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dr As DataRow = DataTables("基础表").SQLFind("[状态] = '" & tb_jgdh.Text.Trim() & "'")
If dr IsNot Nothing Then
dr("状态") = Nothing
dr.Save()
End If
.Current.Delete
End If
End If
End If
End With
这是一个删除操作， 如果一行数据删除，去更新另一行数据的状态列
我这段代码有什么问题吗，为何dr("状态")状态就是改不过来呢 ，我用msg 调试，dr("状态")已经是空，表里却没变，搞了一下午了，整不明白！
[此贴子已经被作者于2020/5/6 15:38:14编辑过]
加好友 
发短信
Post By：2020/5/6 15:34:00 [只看该作者]
