有个初始化按钮代码？发布后出现问题？如图，请教狐爸什么问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码如下：

Dim Result As DialogResult

Result=MessageBox.Show("确定要业务数据初始化吗?请慎重", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)

If Result = DialogResult.ok

DataTables("仓库").SQLDeleteFor("")

DataTables("产品类别").SQLDeleteFor("")

DataTables("产品目录表").SQLDeleteFor("")

DataTables("期初库存").SQLDeleteFor("")

DataTables("库存表").SQLDeleteFor("")

DataTables("客户").SQLDeleteFor("")

DataTables("供应商").SQLDeleteFor("")

DataTables("资金表").SQLDeleteFor("")

DataTables("单位").SQLDeleteFor("")

DataTables("职员").SQLDeleteFor("")

DataTables("结算方式").SQLDeleteFor("")

DataTables("费用类型").SQLDeleteFor("")

DataTables("其他入库类型").SQLDeleteFor("")

DataTables("其他出库类型").SQLDeleteFor("")

messagebox.show("基础数据初始完成请重启系统","提示")

System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill

End If

此主题相关图片如下：www.jpg

主题：有个初始化按钮代码？发布后出现问题？如图，请教狐爸什么问题？