共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]引用
1楼
苏州老街 发表于：2025/1/10 21:45:00老师好，项目事件中有和下面相同的一段代码，这段新增的代码不知怎样修改。
Dim filter = iif(t5.filter > "", t5.filter, "1=1")
cmd5.CommandText = "SEL ECT DIS TINCT year(日期) as 年, 来源,客户ID,客户名称 from {进销存} where " & filter
dt = cm d5.ExecuteReader()
For Each dr As DataRow In dt.datarows
filter = "年份 = '" & dr("年") & "' and 来源 = '" & dr("来源") & "' and 客户名称 = '" & dr("客户名称")
[此贴子已经被作者于2025/1/11 3:15:32编辑过]
2楼
有点蓝 发表于：2025/1/11 9:28:00贴出完整代码，描述一下要做什么功能
3楼
苏州老街 发表于：2025/1/11 9:44:00老师，两组代码在标出的地方怎样设置避免冲突。
Dim cmd5 As New SQLCommand '年度统计
Dim dt As DataTable
cmd5.C
Dim t5 As Table = Tables("进销存")
Dim filter = iif(t5.filter > "", t5.filter, "1=1")
cmd5.Co mmandText = "SELE CT DIS TINCT year(日期) as 年, 来源,客户ID,客户名称 from {进销存} where " & filter
dt = cmd5.ExecuteReader()
For Each dr As DataRow In dt.datarows
filter = "年份 = '" & dr("年") & "' and 来源 = '" & dr("来源") & "' and 客户名称 = '" & dr("客户名称") & "'"
Dim ndr As DataRow = DataTables("年度统计").find(filter)
If ndr Is Nothing Then
ndr = DataTables("年度统计").addnew
End If
ndr("年份") = dr("年")
ndr("来源") = dr("来源")
ndr("客户名称") = dr("客户名称")
Next
'''''''''''''''''''''''''''''''''''''''''''''''''
Dim cmd As New SQLCommand '年度统计
Dim dt1 As DataTable
cmd.C
Dim t6 As Table = Tables("汇总")
Dim filter = iif(t6.filter > "", t6.filter, "1=1")
cmd.Com mandText = "SEL EC T DISTINCT year(抄表日期) as 年, 来源,名称_ID,名称 from {汇总} where " & filter
dt1 = cmd.ExecuteReader()
For Each dr As DataRow In dt1.datarows
filter = "年 = '" & dr("年") & "' and 来源 = '" & dr("来源") & "' and 名称 = '" & dr("名称") & "'"
Dim ndr As DataRow = DataTables("销售年度统计").find(filter)
If ndr Is Nothing Then
ndr = DataTables("销售年度统计").addnew
End If
ndr("年") = dr("年")
ndr("来源") = dr("来源")
ndr("名称") = dr("名称")
Next
4楼
有点蓝 发表于：2025/1/11 10:10:00使用不同的变量名称，filter1 、filter2 、filter3.......
5楼
苏州老街 发表于：2025/1/11 11:10:00老师，变量改了还是没有用。
此主题相关图片如下：2025-01-06 10 37 50.png
6楼
有点蓝 发表于：2025/1/11 11:16:00提示很明显了，用到的地方都要改，改就改完整。
共6 条记录, 每页显示 10 条, 页签:
[1]