[求助]求各位老大看看,这代码怎么不行?? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求各位老大看看,这代码怎么不行??

共有22779人关注过本帖树形打印复制链接主题：[求助]求各位老大看看,这代码怎么不行??

菜鸟foxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

[求助]求各位老大看看,这代码怎么不行?? 发帖心情

Post By：2008/12/1 16:36:00 [只看该作者]

参照自动输入示例,假如县市下还有细分,比如镇村,如何实现?我写了半天不是代码出错就是实现不了....

我的示例文件有:类别/项目/规格3个级别...
选择类别后该类别项目作为列表项目,选择了项目后该项目规格作为列表项目.下面代码怎么不行啊?

If e.Col.Name = "项目" Then
    If e.Row.IsNull("类别") Then
        e.Col.Combolist = ""
    Else
        e.Col.Combolist = DataTables("价表").GetComboListString("项目", "[类别] = '" & e.Row("类别") & "'")
If e.Col.Name = "规格" Then
    If e.Row.IsNull("项目") Then
        e.Col.Combolist = ""
    Else
        e.Col.Combolist = DataTables("价表").GetComboListString("规格", "[项目] = '" & e.Row("项目") & "'")
     End If
End If
     End If
End If

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

[此贴子已经被作者于2008-12-2 9:31:14编辑过]

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2008/12/1 16:39:00 [只看该作者]

以下是引用菜鸟foxtable在2008-12-1 16:36:00的发言：
如何实现这样的快捷录入?如果能实现真的太爽了...

图片点击可在新窗口打开查看

此主题相关图片如下：001.jpg

另外参照自动输入示例,假如县市下还有细分,如何实现?我写了半天不是代码出错就是实现不了....
If e.Col.Name = "项目" Then
    If e.Row.IsNull("类别") Then
        e.Col.Combolist = ""
    Else
        e.Col.Combolist = DataTables("价表").GetComboListString("项目", "[类别] = '" & e.Row("类别") & "'")
     End If
End If

下载信息 [文件大小：1.1 MB 下载次数：0]
点击浏览该文件:菜鸟项目.table

自动输入应该有两个地方要设置，详细看狐爸的自动输入的示列。

菜鸟foxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2008/12/2 9:32:00 [只看该作者]

顶起

smileboy

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

好心情

等级：超级版主帖子：715 积分：5564 威望：0 精华：1 注册：2008/8/31 20:45:00

Post By：2008/12/2 11:05:00 [只看该作者]

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

菜鸟foxtable

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2008/12/2 17:21:00 [只看该作者]

原来代码可以这样写,举一反三,就算再多一级都不是问题了.谢谢老大指点.

If e.Col.Name = "项目" Then
    If e.Row.IsNull("类别") Then
        e.Col.Combolist = ""
    Else '否则
        Dim drs As New List(Of DataRow)
        Dim Val AS String
        drs = DataTables("价表").Select("[类别] = '" & e.Row("类别") & "'")
        For Each dr As DataRow In drs
            Val = Val & "|" & dr("项目")
        Next
        e.Col.Combolist = Val
    End If
End If

If e.Col.Name = "规格" Then
    If e.Row.IsNull("类别") OrElse e.Row.IsNull("项目") Then
        e.Col.Combolist = ""
    Else '否则
        Dim drs As New List(Of DataRow)
        Dim Val AS String
        drs = DataTables("价表").Select("[类别] = '" & e.Row("类别") & "'" & " and [项目]='" & e.Row("项目") & "'")
        For Each dr As DataRow In drs
            Val = Val & "|" & dr("规格")
        Next
        e.Col.Combolist = Val
    End If
End If

下一主题 >> << 上一主题

主题：[求助]求各位老大看看,这代码怎么不行??