主题：[求助]程老师，麻烦你再改下，有点小问题！

就这么点破问题，还点名要狐爸：

 

Dim s As String = "产品,订单"
For i As Integer = 0 To 1
    If MessageBox.Show("是否删除'" & s.split(",")(i) & "'所有记录?","确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = 6 Then
        With DataTables(s.split(",")(i))
            .DataRows.Clear() '清除所有行
        End With
    End If
Next

抬头看楼上！

早说，简单多了：

If MessageBox.Show("是否删除'" & MainTable.Name  & "'所有记录?","确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = 6 Then
      With DataTables(MainTable.Name)
          .DataRows.Clear() '清除所有行
      End With
End If

哪个表都可以用！

If MainTable.Name = "订单" or MainTable.Name = "产品"

If MessageBox.Show("是否删除'" & MainTable.Name  & "'所有记录?","确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = 6 Then
      With DataTables(MainTable.Name)
          .DataRows.Clear() '清除所有行
      End With
End If

end if

因为您打开了关联表，鼠标焦点在关联表中，显示的关联表名称是tables("父表.子表")