老师您好，学习您代码还是有些迷糊，我给您发的临时数据是另建的，也是我当时没考虑清楚，我按我的数据来源及显示位置做了一些修改，可就是改不上，还得请老师帮我处理下，我再对照学习，谢谢老师。
数据结构：
我原表A的数据是SQL数据库里的“白塔砼销明细”－g.CTextBox522")和Dim qz As WinForm.TextBox = e.Form.Controls("TextBox523")
数据列原先的不变，现在增加：砼销明细_生产日期0，生产信息_生产信息_生产线，生产信息_生产信息_浇筑方式，条件是：[砼销明细_生产日期0] >= '" & qq.text & "' and [砼销明细_生产日期0] <= '" & qz.text & "'
显示列的顺序为：砼销明细_生产日期0，生产信息_生产信息_生产线，销档，标号，生产信息_生产信息_浇筑方式，产量，后面就是那些用料的了
您之前的代码如下：
| Dim dtb As New DataTableBuilder("统计表1") |
| dtb.AddDef("销档", GetType(String), 16) |
| dtb.AddDef("标号", GetType(String), 16) |
| dtb.AddDef("产量", GetType(Integer)) |
| Dim lst As New List(Of String) |
| For Each c As Col In Tables("表A").cols |
| If c.Name Like "*_物料_*" Then |
| For Each v As String In DataTables("表A").GetValues(c.Name, c.Name & " is not null") |
| If lst.Contains(v) = False Then |
| lst.Add(v) |
| dtb.AddDef(v, GetType(Double)) |
| End If |
| Next |
| End If |
| Next |
| dtb.Build() |
|
| For Each v As String() In DataTables("表A").GetValues("砼销明细_销档|砼销明细_生产信息_标号") |
| Dim dr1 As DataRow = DataTables("统计表1").AddNew() |
| dr1("销档") = v(0) |
| dr1("标号") = v(1) |
| For Each dr2 As DataRow In DataTables("表A").Select("砼销明细_销档 = '" & v(0) & "' and 砼销明细_生产信息_标号 = '" & v(1) & "'") |
| dr1("产量") = dr1("产量") + dr2("砼销明细_生产信息_产量") |
| For Each c As Col In Tables("表A").cols |
| If c.Name Like "*_物料_*" Then |
| If dr2.IsNull(c.Name) = False Then |
| dr1(dr2(c.Name)) = dr1(dr2(c.Name)) + dr2(c.Name.Replace("物料", "用量")) |
| End If |
| End If |
| Next |
| Next |
| Next |
| MainTable = Tables("统计表1") |
烦请老师帮忙修改下，谢谢！
加好友 
发短信
Post By：2024/10/21 15:05:00 [只看该作者]
此主题相关图片如下：微信截图_20241021145255.png
