主题：[求助]查询表根据 国家、省份、市、街道表的变化自动更新汇总

 参考

http://www.foxtable.com/webhelp/scr/2322.htm

直接用3楼的查询表不行？为什么一定要填充？

如果要生成文件夹，你可以循环每一行，然后生成的。

直接用查询表也可以有同样的效果啊。

如果确实要填充，参考代码

Dim drs1 = DataTables("国家").Select("")
For Each dr As DataRow In drs1
    Dim drs2 = DataTables("省份").Select("所属国家 = '" & dr("编号") & "'")
    If drs2.count = 0 Then
        Dim ndr As DataRow = DataTables("查询").AddNew
        ndr("国家") = dr("名称")
    Else
        For Each cdr As DataRow In drs2
            Dim drs3 = DataTables("市").Select("所属省份编号 = '" & cdr("编号") & "'")
            If drs3.count = 0 Then
                Dim ndr As DataRow = DataTables("查询").AddNew
                ndr("国家") = dr("名称")
                ndr("省份") = cdr("名称")
            Else
                For Each ccdr As DataRow In drs3
                    Dim drs4 = DataTables("街道").Select("所属市编号 = '" & ccdr("编号") & "'")
                    If drs4.count = 0 Then
                        Dim ndr As DataRow = DataTables("查询").AddNew
                        ndr("国家") = dr("名称")
                        ndr("省份") = cdr("名称")
                        ndr("市") = ccdr("名称")
                    Else
                        For Each cccdr As DataRow In drs4
                            Dim ndr As DataRow = DataTables("查询").AddNew
                            ndr("国家") = dr("名称")
                            ndr("省份") = cdr("名称")
                            ndr("市") = ccdr("名称")
                            ndr("街道") = cccdr("名称")
                        Next
                    End If
                Next
            End If
        Next
    End If
Next

不要在datacolchanged事件写。请做一个按钮。

如果存在，加上代码判断 http://www.foxtable.com/webhelp/scr/0396.htm