- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 处理数据的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94232)
-- 发布时间：2016/12/19 15:03:00
-- 处理数据的问题
我的代码如下：
Dim q As new QueryBuilder
q.TableName = "备案明细表"
q.Con nec ti
q.Sel ectString = "s ele ct * from {备案信息表} where (产品名称 Like \'%面膜%\') And (配方名称 In (s el ect DISTINCT {配方明细}.[PFDW] from {配方明细} where {配方明细}.YLDW in (s ele ct DISTINCT {原料目录}.[YLDW] from {原料目录} where 原料名称 in (\'1.3丙二醇\',\'1.3-丙二醇\')))) And BAXXDW is not null ORDER BY BAXXDW DESC"
q.Build
If DataTables("备案明细表").DataRows.Count > 0 Then
Dim cmd As New SQLCommand
Dim qymc As DataTable
Dim dgmx As DataTable
cm d.Con necti
Dim ids As String = DataTables("备案明细表").GetComboListString("BAXXDW")
If ids > "" Then
ids = ids.Replace("|",",")
ids = ids.TrimStart(",")
cmd.CommandText = "S ELE CT [BAXXDW],[QYDW] From {代工明细} where BAXXDW in (" & ids & ")"
dgmx = cmd.ExecuteReader()
If dgmx.DataRows.Count > 0 Then
ids = dgmx.GetComboListString("QYDW")
ids = ids.Replace("|",",")
ids = ids.TrimStart(",")
cmd.CommandText = "SE LE CT [QYDW],[企业名称],[业务员] From {企业目录} where QYDW in (" & ids & ")"
qymc = cmd.ExecuteReader()
If qymc.datarows.Count > 0 Then
If DataTables("备案明细表").datacols.Contains("代工企业") = False Then
DataTables("备案明细表").datacols.Add("代工企业", Gettype(String), 250)
End If
For Each r As Row In Tables("备案明细表").Rows
Dim drs As List(Of DataRow)
drs = dgmx.Select("[BAXXDW] = " & r("BAXXDW") & "")
Output.show(drs.Count)
If drs.Count > 0 Then
Dim mc As String = ""
For Each dr As DataRow In drs
Dim tr As DataRow = qymc.find("QYDW = " & dr("QYDW") & "")
If tr IsNot Nothing Then
Output.show(r("产品名称"))
Output.show(tr("企业名称"))
If mc = "" Then
mc = tr("企业名称")
Else
mc = mc & "," & tr("企业名称")
End If
r("代工企业")= mc
End If
Next
End If
Next
End If
End If
End If
End If
Output.show(1)
-- 发布时间：2016/12/19 15:05:00
--
但是会出现以下错误：
此主题相关图片如下：vle)v@jctr2f{%nw@}kqg5b.png
-- 发布时间：2016/12/19 15:07:00
--
我用output 找出错误的行，然后单独用这行去运行，又没有问题，可以通过。但是行数大于1500行就会出这个错误，为什么啊？
-- 发布时间：2016/12/19 15:30:00
--
你合成的条件是什么？会不会过长？