此主题相关图片如下:360截图20160420125447362.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-4/201642012592428687.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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-4/20164201322122780.jpg)
[此贴子已经被作者于2016/4/20 13:03:07编辑过]