本人做了一个窗口，窗口里有一Table插件，Table插件对应的是一查询表;
窗口下方有一删除按钮，希望点击删除按钮时，能将查询表关联的主要表的数据行删除。
注：查询表里的ID与源表里的ID相同
查询表名为“资产变动视图”，源表为“ZCBD”表和“资产信息”表，
希望在选择“资产变动视图”中某一行后点删除，则自动删除源表“ZCBD”中对应的数据行，然后同时刷新查询表。
现用语句如下：不能完成需求，请指教一下如何才能实现。
If User.IsRole("查看所有并编辑") Then
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除该项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
If Tables("zcbd").Current IsNot Nothing Then
If Tables("zcbd").TopPosition>-1 Then
For i As Integer=Tables("zcbd").BottomPosition To Tables("zcbd").TopPosition Step -1
Tables("zcbd").Rows(i).Delete()
Next
DataTables("zcbd").Save()
End If
End If
End If
Else
MessageBox.show("你无权执行此项操作!")
End If
Tables("资产变动视图").DataTable.Load()
加好友 
发短信
Post By：2016/7/12 7:56:00 [显示全部帖子]
