[求助]程老师，麻烦你再改下，有点小问题！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]程老师，麻烦你再改下，有点小问题！

共有5819人关注过本帖树形打印复制链接主题：[求助]程老师，麻烦你再改下，有点小问题！

sadfox

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

[求助]程老师，麻烦你再改下，有点小问题！ 发帖心情

Post By：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编辑过]

sadfox

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/17 21:23:00 [显示全部帖子]

大神帮忙啊！

sadfox

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/17 21:51:00 [显示全部帖子]

谢谢程老师！

sadfox

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/17 22:05:00 [显示全部帖子]

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

[此贴子已经被作者于2013-4-17 22:06:32编辑过]

sadfox

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：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编辑过]

sadfox

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：1864 威望：0 精华：0 注册：2013/3/16 21:31:00

Post By：2013/4/17 23:22:00 [显示全部帖子]

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

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

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

下一主题 >> << 上一主题

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