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

窗口1的按钮1代码

If MessageBox.Show("是否删除'表名称'所有记录?","确认",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = DialogResult.Yes Then
    With DataTables("产品")
        .DataRows.Clear() '清除所有行
    End With
End If

现在按钮只能删除产品表所有行。

但是我想按钮1对产品和订单都能有效，代码该怎么写啊？求大神帮忙！红色的表名称为删除记录的表名称！

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

 

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

大神帮忙啊！

抬头看楼上！

谢谢程老师！

程老师，不行啊，这个代码一点就是同时对2个表都执行，需要当前表是订单的时候就只对订单执行，当前表是产品的时候就只对产品执行！！

早说，简单多了：

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

哪个表都可以用！

就是不要那个表都可以用，只要产品和订单2个表用，但是不能像开始那样，一不小心就吧产品表和订单都删了，点产品就删产品，点订单就只删订单！

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

就是这样，太麻烦你了，程老师，为什么我用Current不行呢？ Main是什么意思？帮助里也找不到！

我开始就是这样写，If CurrentTable.Name = "订单" or CurrentTable.Name = "产品" ，但是提示不是Data成员