以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个是怎么回事?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105708)
--  作者：jianjingmaoyi
--  发布时间：2017/8/24 16:43:00
--  这个是怎么回事?
Dim r As Row = Tables("项目收银管理_客户信息").Current
If r IsNot Nothing Then
    If r.IsNull("付款类型") = False Then
        Dim mys() As String = r("付款类型").Split(",")
        For i As Integer = 0 To mys.Length -1
            Tables(e.Form.Name & "_Table1").StopRedraw
            Dim myr1 As DataRow = DataTables(e.Form.Name & "_Table1").Find("付款类型 =\'" &  mys(i) & "\'")
            If myr1 Is Nothing Then
                Dim myr As Row = Tables(e.Form.Name & "_Table1").AddNew
                myr("付款类型") = mys(i)
                myr("业务单号") = r("业务单号")
                myr("所在医院") = Vars("医院")
                myr("所在分院") = Vars("分院")
                myr("类别") = "项目"
                myr("结账单号") = r("结账单号")
                myr("客户编号") =r("客户编号")
                myr("姓名") = r("姓名")
                myr("联系电话") =r("联系电话")
                myr("日期") =Date.today
                myr.Save
            End If
            Tables(e.Form.Name & "_Table1").ResumeRedraw
        Next
    End If
End If


这段代码用了近一年了 但是今日突然出现问题



语句已终止。
将截断字符串或二进制数据。

实在找不出原因所在了
--  作者：jianjingmaoyi
--  发布时间：2017/8/24 17:10:00
--  
我操  我查了半天 居然是表1 保存出现的问题,这个表里面没有任何事件.
--  作者：有点甜
--  发布时间：2017/8/24 17:15:00
--  

 

你的列的字符长度太小，设置大一些，不然就会截断存放。

 
--  作者：jianjingmaoyi
--  发布时间：2017/8/24 17:31:00
--  
不会是这个问题吧,现在是写入一点问题都没有,只要一保存就提示错误
--  作者：jianjingmaoyi
--  发布时间：2017/8/24 17:32:00
--  
现在麻烦了 我修改表结构 保存也会出现这个问题  我怀疑是项目坏了
--  作者：有点甜
--  发布时间：2017/8/24 18:16:00
--  
以下是引用jianjingmaoyi在2017/8/24 17:32:00的发言：
现在麻烦了 我修改表结构 保存也会出现这个问题  我怀疑是项目坏了

 

如果只保存少量数据，少量字符，有没有问题？

 

先确定是哪个列有问题，你一个列一个列的测试吧。