以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，执行动态删除表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28799)
--  作者：tedat
--  发布时间：2013/2/19 11:27:00
--  求助，执行动态删除表问题

Dim Name As String = e.Form.Controls("工程数量分表名称").Value
If Name = "" Then
    MessageBox.Show("分表不存在!")
    Return
End If
For Each dt As DataTable In DataTables
    If dt.Name.Contains(Name) Then
        MessageBox.Show(Name & "分表存在,可执行删除!","提示")
        Return
    End If
Next
Dim Builder As New ADOXBuilder
Builder.Open()
If MessageBox.Show("是否删除分表","提示",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Question)=True Then
With Builder
    .DeleteTable(name)
End With
End If
Builder.Close()
Syscmd.Project.Open(ProjectFile)
MainTable = Tables("mian")
forms("创建工程数量分表").close()

 

 

问题：执行出现提示后，就不执行动态删除表啊？
--  作者：lin_hailun
--  发布时间：2013/2/19 11:39:00
--  
一句代码写错了。

If MessageBox.Show("是否删除分表","提示",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Question)=True Then

改成

If MessageBox.Show("是否删除分表","提示",MessageBoxButtons.YesNoCancel,MessageBoxIcon.Question)= DialogResult.Yes Then
--  作者：blackzhu
--  发布时间：2013/2/19 11:43:00
--  
If DataTables.Contains("统计表1") \'如果存在统计表1
    DataTables.Delete("统计表1") \'则删除之
End If