For Each dt As DataTable In DataTables
If dt.Type = 4 Then
dim name as string = dt.name
Maintable = Tables(name)
Syscmd.Table.Delete()
Sendkeys.Sendwait("{ENTER}")
End If
next
这段代码的意思是:用系统命令Syscmd.Table.Delete()来删除外部查询表
因为执行系统命令以后,会有一个对话框出来,要按确定,所以再来了一个模拟按键Sendkeys.Sendwait("{ENTER}")
怎奈这段代码在执行时,如果选择对话框中的“是”则出错:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:未命名.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2009-5/20095232237125575.jpg)
需要指出的是,我感觉是模拟按键的代码有问题,因为如果我在出现的对话框手动中选择“否”,则其他代码可以正常执行(可以找出所有的外部查询表,一个个地要求我选择“是”或“否”)
请教各位!