主题：紧急求救！

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

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

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

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

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入文件.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

老大，请尽快帮处理，不能让我们这些测试人员受苦呀！我们真的花了很多心血做领头军呀。

老大什么时候呀，应用版现在急用呀。否则我就要下岗了。