以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]程老师，麻烦你再改下，有点小问题！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31607)
--  作者：sadfox
--  发布时间：2013/4/17 20:54:00
--  [求助]程老师，麻烦你再改下，有点小问题！

窗口1的按钮1代码

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

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

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

[此贴子已经被作者于2013-4-17 22:05:57编辑过]
--  作者：程兴刚
--  发布时间：2013/4/17 21:23:00
--  

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

 

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
--  作者：sadfox
--  发布时间：2013/4/17 21:23:00
--  
大神帮忙啊！
--  作者：程兴刚
--  发布时间：2013/4/17 21:25:00
--  
抬头看楼上！
--  作者：sadfox
--  发布时间：2013/4/17 21:51:00
--  
谢谢程老师！
--  作者：sadfox
--  发布时间：2013/4/17 22:05:00
--  
程老师，不行啊，这个代码一点就是同时对2个表都执行，需要当前表是订单的时候就只对订单执行，当前表是产品的时候就只对产品执行！！
[此贴子已经被作者于2013-4-17 22:06:32编辑过]
--  作者：程兴刚
--  发布时间：2013/4/17 22:49:00
--  

早说，简单多了：

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

哪个表都可以用！
--  作者：sadfox
--  发布时间：2013/4/17 23:05:00
--  
以下是引用程兴刚在2013-4-17 22:49:00的发言：

早说，简单多了：

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

哪个表都可以用！

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

[此贴子已经被作者于2013-4-17 23:05:13编辑过]
--  作者：程兴刚
--  发布时间：2013/4/17 23:16:00
--  

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
--  作者：sadfox
--  发布时间：2013/4/17 23:22:00
--  

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

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

[此贴子已经被作者于2013-4-17 23:24:02编辑过]