| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 同步动态加载？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32069) |
| -- 作者：wqb1102 -- 发布时间：2013/4/25 11:14:00 -- 同步动态加载？ If DataTables("出库").DataRows.Count =0 Then \'如果出库表没有数据 DataTables("销售明细").LoadFilter ="送货单号 Is Null" \'不加载销售明细 Else Dim ids As String For Each dr As DataRow In DataTables("出库").DataRows ids =ids & "," & dr("送货单号") Next ids=ids.Trim(",") DataTables("销售明细").LoadFilter ="送货单号 In (" & ids & ")" End If DataTables("销售明细").Load() 出库表和销售明细根据送货单号关联，出库表的AfterLoad如上设置，可出库表动态加载后，销售明细没有同步加载相关送货单号的销售明细，如上代码根据帮助中修改，不知问题出现在那？
|
| -- 作者：Bin -- 发布时间：2013/4/25 11:19:00 -- messagebox.show 一下IDS 看看正常获得没. |
| -- 作者：wqb1102 -- 发布时间：2013/4/25 11:28:00 -- 在命令窗口中执行： ids =ids & "," & dr("送货单号")，显示错误代码 |
| -- 作者：唐尸三摆手 -- 发布时间：2013/4/25 11:30:00 -- For Each dr As DataRow In DataTables("出库").DataRows
ids =ids & ",\'" & dr("送货单号") & "\'"
Next
ids=ids.Trim(",")
你合成的ids应该是字符型，要有单引号的，帮助看了没 [此贴子已经被作者于2013-4-25 11:30:59编辑过]
|
| -- 作者：wqb1102 -- 发布时间：2013/4/25 11:31:00 -- Dim ids As String For Each dr As DataRow In DataTables("出库").DataRows ids =ids & "," & dr("送货单号") Next 在命令窗口中执行没有反映
|
| -- 作者：wqb1102 -- 发布时间：2013/4/25 11:56:00 -- 4楼，在那里要有 单引号， ids =ids & ",\'" & dr("送货单号") & "\'"中不是有单引号了吗？ [此贴子已经被作者于2013-4-25 12:07:16编辑过]
|
| -- 作者：wqb1102 -- 发布时间：2013/4/25 12:59:00 -- 多谢唐兄了！已解决。 |