主题：[求助]删除关联表记录的问题

试试

SystemReady = False

Dim t As Table = Tables("表A.表B")
If t.GetCheckedRows.Count = 0
    MessageBox.Show("请在复选框中选择要删除的行")
Else
    If MessageBox.Show("是否要删除选择的记录行?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        For Each r As Row In t.GetCheckedRows
            r.Delete
        Next
    End If
End If

SystemReady = True