以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导入表单  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70549)

--  作者:wangxpan
--  发布时间:2015/6/24 10:28:00
--  导入表单
请问我导入原来的订单把最上面的栏去掉都导不进
--  作者:Bin
--  发布时间:2015/6/24 10:29:00
--  
表格发上来.我测试一下看看.

你用什么方式导入?

--  作者:wangxpan
--  发布时间:2015/6/24 10:30:00
--  
EXCEL
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:2015年销售订单统计表 -2.xlsx


--  作者:wangxpan
--  发布时间:2015/6/24 10:31:00
--  
我用高速导入
--  作者:wangxpan
--  发布时间:2015/6/24 10:32:00
--  
怎么回事
--  作者:Bin
--  发布时间:2015/6/24 10:35:00
--  
因为有密码,你得先去掉密码



--  作者:wangxpan
--  发布时间:2015/6/24 11:12:00
--  
巳经导入了,但是我的金额怎么不能自动计算呢,在哪设置金额等于单价*数量*折扣
--  作者:wangxpan
--  发布时间:2015/6/24 11:13:00
--  
另外折扣没有的会不会默认为O,乘出来的金额为0呢
--  作者:大红袍
--  发布时间:2015/6/24 11:14:00
--  

http://www.foxtable.com/help/topics/0025.htm

 


--  作者:yinyb36
--  发布时间:2015/6/24 11:21:00
--  

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel 97-2003文件(*.xls)|*.xls|Excel 2007文件(*.xlsx)|*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
    Dim txtb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
    txtb1.value = dlg.FileName
    cmb1.Value = ""
    If txtb1.Value > "" Then
        Book = New XLS.Book(txtb1.value)
        cmb1.items.clear
        Dim str(Book.Sheets.count - 1) As String
        Dim Sheet As XLS.Sheet
        For i As Integer = 0 To Book.Sheets.count - 1
            str(i) = Book.Sheets(i).name \' str.add(Book.Sheets(i).name)
        Next
        cmb1.Items.AddRange(str)
    End If
    cmb1.Select()
End If

 

有密码时出错:

.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,Excel导入,Button1,Click
详细错误信息:
Object reference not set to an instance of an object.

怎么提前判断是否有密码?