以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQGL2008保存报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196044)
--  作者：lgz518
--  发布时间：2025/3/25 11:45:00
--  SQGL2008保存报错
SQGGGL2008用ADO模式，执行下面代码保存：报错：将截断字符串或二进制数据。语句已终止。如何解决？

Dim db = HySqGGGl.DataBaseFactory.CreateDatabase("DB") \'
\'保存
\'
Dim dt As DataTable = e.Form.Controls("Table1").Table.DataTable
Dim dtb As System.Data.DataTable = dt.basetable.Copy \'
dtb.Columns.Remove("_Locked") \'
dtb.Columns.Remove("System_Sort_Temporary")
dtb.Columns.Remove("System_Filter_Temporary")
dtb.Columns.Remove("System_Filter_Unique")
Dim res = db.UpdGateDataTable(dtb, "主表")\'保存主表
dt.AcceptChanges()

\' MsgBox(2)\'排查错

\'保存明细表
Dim dt2 As DataTable = e.Form.Controls("Table2").Table.DataTable
Dim dtb2 As System.Data.DataTable = dt2.basetable.Copy \'
\'dtb2.Columns.Remove("_Identify")主键列“_Identify”
dtb2.Columns.Remove("_Locked") \'“_Locked”用于保存行的锁定状态
dtb2.Columns.Remove("System_Sort_Temporary")
dtb2.Columns.Remove("System_Filter_Temporary")
dtb2.Columns.Remove("System_Filter_Unique")
Dim res2 = db.UpGdateDataTable(dtb2, "细表")\'保存明细表
dt2.AcceptChanges()
--  作者：有点蓝
--  发布时间：2025/3/25 11:49:00
--  
【将截断字符串或二进制数据】是指有某个列的字符长度不够，改大一点：http://www.foxtable.com/webhelp/topics/0036.htm