Foxtable(狐表)用户栏目专家坐堂 → 写了个excel导入的程序,但是导入过程中出错,请帮忙看看


  共有3184人关注过本帖树形打印复制链接

主题:写了个excel导入的程序,但是导入过程中出错,请帮忙看看

美女呀,离线,留言给我吧!
maningyy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:55 积分:511 威望:0 精华:0 注册:2013/11/14 13:03:00
写了个excel导入的程序,但是导入过程中出错,请帮忙看看  发帖心情 Post By:2014/4/3 16:11:00 [显示全部帖子]

写了个excel导入的程序,但是导入过程中出错,请帮忙看看

错误:The statement has been terminated.

String or binary data would be truncated.

看了下数据长度没有超过数据库限制的,用的sql server。

而且也不是固定到哪一条就出这个错误


 回到顶部
美女呀,离线,留言给我吧!
maningyy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:55 积分:511 威望:0 精华:0 注册:2013/11/14 13:03:00
  发帖心情 Post By:2014/4/3 16:18:00 [显示全部帖子]

Dim dt As DataTable
Dim dr,dr1 As DataRow
Dim str,str1 As String
str1=e.Form.Controls("combobox1").text
str=e.Form.Controls("textbox1").text
Dim Book As New XLS.Book(str)
Dim Sheet As XLS.Sheet = Book.Sheets(str1)
Dim Result As DialogResult
Result = MessageBox.Show("确定要导入数据吗", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    dt=DataTables("状态查询")

Dim j As Integer

    For i As Integer = 1 To Sheet.Rows.Count -1
        dr=dt.find("发货单号='"& sheet(i,1).value &"'")
        If dr Is Nothing Then

            dr1=dt.AddNew
            dr1("发货单号")=sheet(i,1).Value
            dr1("收件人")=sheet(i,2).value
            dr1("地址")=sheet(i,3).Value
            dr1("状态")=sheet(i,4).Value
            dr1("签收人")=sheet(i,5).Value
            dr1("签收日期")=sheet(i,6).value
            dr1("跟踪信息")=sheet(i,7).Value
            dr1("客户")=sheet(i,8).Value
            dr1("发货日期")=sheet(i,0).value
            dr1.save()
        Else
            dr("状态")=sheet(i,4).Value
            dr("签收人")=sheet(i,5).Value
            dr("签收日期")=sheet(i,6).value
            dr("跟踪信息")=sheet(i,7).Value
            dr.save()
        End If
    Next
    msgbox("更新完毕!")

End If


 回到顶部
美女呀,离线,留言给我吧!
maningyy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:55 积分:511 威望:0 精华:0 注册:2013/11/14 13:03:00
  发帖心情 Post By:2014/4/3 16:32:00 [显示全部帖子]

传附件了,帮忙看下吧


 回到顶部
美女呀,离线,留言给我吧!
maningyy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:55 积分:511 威望:0 精华:0 注册:2013/11/14 13:03:00
  发帖心情 Post By:2014/4/3 16:34:00 [显示全部帖子]


[此贴子已经被作者于2014-4-3 16:39:47编辑过]

 回到顶部