- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- appendload错误咨询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133193)
-- 发布时间：2019/4/9 14:27:00
-- appendload错误咨询
此主题相关图片如下：zzz错误1.png
请问如上代码，设置在 datacolchanged事件中，为何执行到箭头所指的appendload语句就报错，对象不存在。谢谢
-- 发布时间：2019/4/9 14:57:00
--
代码应该没问题的，请做一个出错的例子发上来测试。
-- 发布时间：2019/4/9 21:13:00
--
是指把项目发布好打包上来吗？我发现appendload在操作都报错
此主题相关图片如下：aa错误2.png
此主题相关图片如下：aa错误.png
-- 发布时间：2019/4/9 21:23:00
--
这种用法请放到按钮里。不在表事件里加载自己，容易出问题
-- 发布时间：2019/4/9 21:33:00
--
那请问这里的用法又错在哪里呢？我是方在按钮里的。
Dim st As String = e.Form.Controls("TextBox1").value
If st="" Then
messagebox.show("请输入导入批次号")
Return
End If
Dim drs As List (of DataRow) = DataTables("中外运理货表").sqlSelect("操作_导入批次=\'" & st & "\' and 操作_状态= \'理货前-新增\'")
Tables("中外运理货表").StopRedraw
If drs.count>0 Then
For Each dr As DataRow In drs
Dim dr1 As DataRow = DataTables("中外运考拉货品信息").SQLFind("商品条形码=\'" & dr("理论条形码") & "\'")
Dim dr2 As DataRow = DataTables("中外运考拉货品信息").SQLFind("商品条形码=\'" & dr("理论PZ码") & "\'")
Dim tm As String = ""
If dr1 IsNot Nothing Then
tm = dr1("商品条形码")
dr("理货中_WMS中匹配条码")= tm
dr("理货中_长")=dr1("长")
dr("理货中_宽")=dr1("宽")
dr("理货中_高")=dr1("高")
dr("理货中_净重")=dr1("重量")
ElseIf dr2 IsNot Nothing Then
tm = tm & "|" & dr2("商品条形码")
dr("理货中_WMS中匹配条码")= tm.TrimStart("|")
dr("理货中_长")=dr1("长")
dr("理货中_宽")=dr1("宽")
dr("理货中_高")=dr1("高")
dr("理货中_净重")=dr1("重量")
Else
dr("理货中_WMS中匹配条码")= Nothing
dr("理货中_长")=Nothing
dr("理货中_宽")=Nothing
dr("理货中_高")=Nothing
dr("理货中_净重")=Nothing
End If
dr("操作_状态")="理货前-已匹配系统内部产品信息"
dr.locked=True
dr.save
Next
End If
messagebox.show("1")
Tables("中外运理货表").ResumeRedraw
DataTables("中外运理货表").RemoveFor("操作_导入批次=\'" & st & "\' and 操作_状态=\'理货前-已匹配系统内部产品信息\'")
messagebox.show("2")
DataTables("中外运理货表").AppendLoad("操作_导入批次=\'" & st & "\' and 操作_状态=\'理货前-已匹配系统内部产品信息\'")
DataTables("中外运理货表").save
此主题相关图片如下：aa错误2.png
还有一个问题是：针对第一次的错误，如果我有一张表，有一列批次，一列状态，状态是个项目列表A,B,C. 如果设置某一行的状态值，那么所有批次相同的行也随之变成这一个状态值，请问有啥高效的方法吗？
[此贴子已经被作者于2019/4/9 21:36:36编辑过]
-- 发布时间：2019/4/9 21:38:00
--
先保存，再加载
DataTables("中外运理货表").save
DataTables("中外运理货表").RemoveFor("操作_导入批次=\'" & st & "\' and 操作_状态=\'理货前-已匹配系统内部产品信息\'")
messagebox.show("2")
DataTables("中外运理货表").AppendLoad("操作_导入批次=\'" & st & "\' and 操作_状态=\'理货前-已匹配系统内部产品信息\'")
-- 发布时间：2019/4/9 21:41:00
--
这是什么原理呢？保存的话我在前面的循环代码里面有 dr.save啊？ 测试了还是报错
我测试了下，如果把 appendload(filter, false) 这样就能避免报错，但是这样的话值也没有修改就变成了
[此贴子已经被作者于2019/4/9 22:05:09编辑过]
-- 发布时间：2019/4/9 22:12:00
--
可能有其它代码影响到了。做个测试例子上传看看
-- 发布时间：2019/4/9 22:16:00
--
我刚测成功了，做了如下修改
Tables("中外运理货表").ResumeRedraw
DataTables("中外运理货表").RemoveFor("操作_导入批次=\'" & st & "\'")
DataTables("中外运理货表").AppendLoad("操作_导入批次=\'" & st & "\'")
DataTables("中外运理货表").save
有几个问题请加下。
如果直接利用select语句中的update，delete，或者 sqlreplacefor，是不是直接就从后台删除修改数据，并且自动就保存了在后台了修改后的结果
单如果是利用 sqlselect或者sqlfind等引用的后台数据，修改后是否需要执行save命令才会真正吧结果保存到后台啊？
[此贴子已经被作者于2019/4/9 22:18:49编辑过]
-- 发布时间：2019/4/9 22:22:00
--
以下是引用jackchan120925在2019/4/9 22:16:00的发言：
是的
有几个问题请加下。
如果直接利用select语句中的update，delete，或者 sqlreplacefor，是不是直接就从后台删除修改数据，并且自动就保存了在后台了修改后的结果
单如果是利用 sqlselect或者sqlfind等引用的后台数据，修改后是否需要执行save命令才会真正吧结果保存到后台啊？
[此贴子已经被作者于2019/4/9 22:18:49编辑过]