共9 条记录, 每页显示 10 条, 页签: [1]

标题：求助同步加载父子表

1楼

张海兵 发表于：2011/9/5 3:47:00

狐爸帮忙看看。密码0000同步加载父子表。按帮助里面抄的。就是不行。帮忙看看代码那里不对。最好改好后。传个过来看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

密码。0000

密码。4个0

[此贴子已经被作者于2011-9-5 9:33:44编辑过]

2楼

狐狸爸爸 发表于：2011/9/5 9:00:00

呵呵，密码呢？

锁起大门，怎么帮你看啊？

3楼

张海兵 发表于：2011/9/5 9:35:00

狐爸帮忙看看。密码0000同步加载父子表。按帮助里面抄的。就是不行。帮忙看看代码那里不对。最好改好后。传个过来看看

下载信息 [文件大小：360.0 KB 下载次数：1]
点击浏览该文件:管理项目2.table

密码。0000

密码。4个0

4楼

张海兵 发表于：2011/9/5 9:41:00

0000

5楼

张海兵 发表于：2011/9/5 9:53:00

怎么没人理我的

6楼

狐狸爸爸 发表于：2011/9/5 9:57: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(",")
    If ids = "" Then
        Return
    End If
    DataTables("支出明细").LoadFilter = "关单号 In (" & ids & ")"
End If
DataTables("支出明细").Load()

7楼

张海兵 发表于：2011/9/5 10:11:00

狐爸没用啊。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

8楼

狐狸爸爸 发表于：2011/9/5 10:23:00

表达式中的字符串，要用单引号括起来：

If DataTables("业务大表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("支出明细").LoadFilter = "关单号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("业务大表").DataRows
        If dr.Isnull("关单号") = False Then
            ids = ids & ",'" & dr("关单号") & "'"
        End If
    Next
    ids= ids.Trim(",")
    If ids = "" Then
        Return
    End If
    DataTables("支出明细").LoadFilter = "关单号 In (" & ids & ")"
End If
DataTables("支出明细").Load()

建议你看看：

http://www.foxtable.com/help/topics/1284.htm

9楼

狐狸爸爸 发表于：2011/9/5 10:23:00

http://www.foxtable.com/help/topics/0220.htm

共9 条记录, 每页显示 10 条, 页签: [1]