dim j as integer
\'清除库存数据
dim tb as table = Tables("开卷导入临时表")
tb.Focus
if Tables("开卷导入临时表").count > 0 then
for j = 0 to tb.count-1
    tb.rows.Remove(0)
next
end if

Dim cmd As New SQLCommand
cmd.C
Dim dlg As New OpenFileDialog \'定一个新的OpenFileDialog
dim s1 as string
   dlg.Filter= "Excel文件|*.xls"    \'|文本文件|*.txt|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
   s1 = dlg.FileName
   If s1<> " " then
      Dim Book As New XLS.Book(s1)
      Dim ss3 as string = Book.Sheets(0).Name + "$"
      Dim mg As New Merger
      mg.SourcePath = s1
      mg.Format = "excel" \'指定格式
      mg.SourceTableName = ss3     \'指定要合并的表
      mg.DataTableName = "开卷导入临时表"   \'指定接收数据的表
      mg.Filter = "[捆包号] <> \'\'" \'指定合并条件
      mg.Fields = "发货通知号,捆包号,生产厂家资源号,品名,钢种,毛重,净重,件数,规格"
      mg.Merge() \'开始合并
  end if
end if
if tables("开卷导入临时表").count > 0 then
   for i as integer = 0 to tables("开卷导入临时表").count -1
       dim dr as row = tables("开卷导入临时表").rows(i)
      dr("出货日期") = format(date.now,"yyyy-MM-dd")
   Next
end if

发布自己的系统

下面的发布功能针对的是商业版本和试用版，开发版的发布功能与此不同。

发布步骤：

1、将foxtable.exe和foxtable.chm改为你喜欢的名字。
2、将你项目的整个目录复制到foxtable目录下。
3、创建文本文件DefaultProject.txt，里头写入目录名称和项目名称(最好同名)，例如：金越进销存\\金越进销存.table
4、将整个foxtable目录复制到任何电脑，即可直接启动foxtable并打开你的项目文件 。
5、DefaultProject.txt必须位于foxtable目录下，而不是项目目录下。

注意如果改foxtable.chm和foxtable.exe，必须改为相同的名字，例如jyt.exe、jyt.chm
　

 是按以上方法的呀。就是出错呀。