|
Dim flag As Boolean = True
With Tables("表A")
If .Rows.count > 0 Then
Dim Result As DialogResult
Result = MessageBox.Show("是否确定保存表A?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
For Each r As Row In Tables("表A")
If r("字段1") = Nothing Then
Messagebox.show("请选择字段1!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
flag = False
Exit For
ElseIf r("字段2") = Nothing Then
Messagebox.show("请选择字段2!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
flag = False
Exit For
End If
Next
If flag Then
For i As Integer = 0 To .Rows.count - 1
.Rows(i).Locked = True
.Rows(i).Save
Next
Messagebox.show("表A已保存!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
Messagebox.show("请继续!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
Messagebox.show("当前表无数据,保存无效!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End With
|
加好友 
发短信
Post By：2014/8/11 15:41:00 [显示全部帖子]
