- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 删除关联表中子表记录报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83965)
-- 发布时间：2016/4/20 13:00:00
-- 删除关联表中子表记录报错
此主题相关图片如下：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编辑过]
-- 发布时间：2016/4/20 14:45:00
--
这句代码，要删除
CurrentTable.current.load