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()