主题：紧急求救！

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.jpg

   没用过导入，同情之·····     难道xxxxx.table的路径也要一致？

这下可搞杂了，昨天也好好的，不知动了哪里怎会这样。我电脑上没事，刚好正要用的电脑上就出问题，关键时候，出问题呀！

s1 = dlg.FileName 得出的路径怎么要加上系统项目的路径呢？

哦，终于找出原因了，原来在开发者登陆时就不会出现，如果设置了黙认的用户时，路径不正确了。这是一个BUG呀。

害得我不轻了，给老板K了我一顿呀。

真正原因是，使用了Defaultproject.txt直接打开项目时，路径会把Defaultproject.txt中的路径加上去，如果不用Defaultproject.txt打开时，选择的路径才正确。请老大尽快处理这个Bug吧。这段时间真是烦透了。

发布自己的系统

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

发布步骤：

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
　

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

做个简单的例子看看，我怎么测试不出来的啊