此主题相关图片如下：360截图20160420125447362.jpg
“删除课程”按钮代码：
Dim xm,fl,xh As String
xm=Tables("学生档案.课程记录").current("姓名")
fl=Tables("学生档案.课程记录").current("分类")
xh=Tables("学生档案.课程记录").current("序号")
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除:" & xm & "的" & fl & "课程吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
'Tables("学生档案.课程记录").Current.Delete()
DataTables("学习记录").DeleteFor("[姓名] = '"& xm &"' and [序号]= '"& xh &"'")
MessageBox.Show("已经删除:" & xm & "的" & fl & "课程")
Else
MessageBox.Show(xm & "的" & fl & "课程没有删除")
End If
DataTables("学习记录").save()
DataTables("课程记录").Load
CurrentTable.current.load
此主题相关图片如下：360截图20160420125635350.jpg
[此贴子已经被作者于2016/4/20 13:03:07编辑过]
加好友 
发短信
Post By：2016/4/20 13:00:00 [只看该作者]
