Foxtable(狐表)用户栏目专家坐堂 → [求助]级联列表,查找多值字段


  共有10767人关注过本帖树形打印复制链接

主题:[求助]级联列表,查找多值字段

帅哥哟,离线,有人找我吗?
FOTOER
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1535 威望:0 精华:0 注册:2011/8/29 20:48:00
[求助]级联列表,查找多值字段  发帖心情 Post By:2012/7/25 23:22:00 [只看该作者]

以下代码“试验参数”如果是单值字段,运行正常,如果是多值字段,则运行无结果。
现请教代码如何修改,查找多值字段并正常运行。

Select Case e.DataCol.Name
    Case "委托日期","工程分类" , "试验对象" , "试验参数"
        Dim dr As DataRow
        Dim Filter As String
        Filter = "[工程分类] = '" & e.DataRow("工程分类") & "' And [试验对象] = '" & e.DataRow("试验对象") & "' And [试验参数] = '" & e.DataRow("试验参数") & "'"
        dr = DataTables("C试验参数").Find(Filter)
        If dr IsNot Nothing Then 
            e.DataRow("工程分类") = dr("工程分类代码")
            e.DataRow("试验对象") = dr("试验对象代码")
            e.DataRow("试验参数") = dr("试验参数")
            e.DataRow("委托日期") = now()

            Dim d As Date = e.DataRow("委托日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = e.DataRow("工程分类") & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀

            If e.DataRow("委托单号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "工程分类 = '"& e.DataRow("工程分类") & "' And 委托日期 >= #" & fd & "# And 委托日期 <= #" & ld & "#"
                max = e.DataTable.Compute("Max(委托单号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(10,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("委托单号") = bh & Format(idx,"0000")
            End If
      
        End If

End Select

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/26 8:30:00 [只看该作者]

Dim v As String = e.DataRow("试验参数")
Filter = "[工程分类] = '" & e.DataRow("工程分类") & "' And [试验对象] = '" & e.DataRow("试验对象") & "'"
Filter = Filter & " And ([试验参数] = '" & v & "' Or [试验参数] Like '" & v & ",*' Or [试验参数] Like '*," & v & "')"

 回到顶部
帅哥哟,离线,有人找我吗?
FOTOER
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1535 威望:0 精华:0 注册:2011/8/29 20:48:00
  发帖心情 Post By:2012/7/26 17:02:00 [只看该作者]

多谢回复,但是还未能解决问题。特做一简单例子,请再次指点!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:级联列表,多值字段,自动编号.rar.rar


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/26 17:12:00 [只看该作者]

编号的规则是什么? 我测试你的文件,不管单值,还是多值,都不能正常生成编号。


 回到顶部
帅哥哟,离线,有人找我吗?
FOTOER
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1535 威望:0 精华:0 注册:2011/8/29 20:48:00
  发帖心情 Post By:2012/7/26 17:15:00 [只看该作者]

编号规则是工程代码:Y-201207-0001
日期不用输入,在代码中有输入日期

[此贴子已经被作者于2012-7-26 17:16:38编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
FOTOER
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1535 威望:0 精华:0 注册:2011/8/29 20:48:00
  发帖心情 Post By:2012/7/27 8:43:00 [只看该作者]

编号生成操作:①选择工程分类;②选择试验对象;③选择试验参数。

 回到顶部