Select Case e.StripItem.Name
Case "增加"
Tables("运次借款").AddNew()
Case "删除"
With Tables("运次借款")
If .Current IsNot Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show("确定删除此条借款", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
.Current.Delete
End If
Else
MessageBox.Show("已无可删记录")
End If
End With
Case "编辑"
e.Form.Controls("编辑区").Enabled = True
Case "保存"
With Tables("运次借款")
If .Current IsNot Nothing Then
If .Current.IsNull("车牌号") OrElse .Current.IsNull("本次借款合计") Then
MessageBox.Show("信息填写完整后方可保存!")
Else
Tables("运次借款").Save() .
e.Form.Controls("编辑区").Enabled = False
End If
End If
End With
End Select
以上代码中：Tables("运次借款").Save() 提示“表达式不产生值 ”。请指导
以上已解决
[此贴子已经被作者于2019/9/12 20:58:00编辑过]
加好友 
发短信
Post By：2019/9/12 20:49:00 [只看该作者]
