- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有个初始化按钮代码？发布后出现问题？如图，请教狐爸什么问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131033)
-- 发布时间：2019/2/14 17:14:00
-- 有个初始化按钮代码？发布后出现问题？如图，请教狐爸什么问题？
代码如下：
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
此主题相关图片如下：www.jpg-- 发布时间：2019/2/14 17:21:00
--
System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill
改成
System.Diagnostics.Process.GetCurrentProcess().Kill