将窗口中的控件table1与内部表DATATABLE进行绑定,利用窗口对DATATABLE进行修改,保存时:
1.如果修改后的列的值没有变化,则返回窗口继续进行修改
2.如果修改后的列的值变化,保存后提示修改成功。
窗口保存按钮代码如下:
Dim dr As DataRow
修改列代码(略)
dr.save()
If dr.RowState = DataRowState.Unchanged Then
MessageBox.Show("任务数据项没有变化,请返回继续修改!","提示")
tex1.Select()
Return
ElseIf dr.RowState = DataRowState.Modified
Then
MessageBox.Show("恭喜,任务修改成功!","提示"
End If
e.Form.Close()
End If
问题:我修改列值,保存提示“任务数据项没有变化,请返回继续修改”,请问错在哪里?