主题：在交叉统计设置中复制代码 不能直接使用吗？

For Each cus As String In dt.GetValues("日期", "日期 is not null")

或者

For Each cus As String In dt.GetValues("日期", "len(日期) >= 8")

Dim cmd As new SQLCommand
cmd.commandText = "Select  领取人, format(日期,'yyyy年MM月') as 日期, {登记表}.设备ID号 As 设备ID号 From {订单} Left JOIN {登记表} ON {登记表}.[设备ID号] = {订单}.[设备ID号]"
Dim dt As DataTable = cmd.ExecuteReader
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("日期", Gettype(String))
Dim v = e.form.Controls("CheckedComboBox1").value
Dim prds As new List(of String)
Dim str As String = "未领取,报废,返修A厂"
If v > "" Then
    prds.AddRange(v.split(","))
Else
    prds = DataTables("订单").GetValues("领取人", "领取人 not in ('" & str.replace(",", "','") & "')")
    prds.Insert(0, "返修A厂")
    prds.Insert(0, "报废")
    prds.Insert(0, "未领取")
End If
For Each prd As String In prds
    dtb.AddDef(prd & "_领取数量", Gettype(Integer))
    dtb.AddDef(prd & "_使用数量", Gettype(Integer))
    dtb.AddDef(prd & "_剩余数量", Gettype(Integer))
    dtb.AddDef(prd & "_值", Gettype(String))
Next
dtb.Build()
For Each cus As String In dt.GetValues("日期", "len(日期) >= 8")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("日期") = cus
    Dim d As Date = new Date(cus.Substring(0,4), cus.SubString(5,2), 1)
    Dim filter As String = "日期 = '" & cus & "'"
    For Each prd As String In prds
        dr(prd & "_领取数量") = dt.Compute("Count(领取人)",filter & " And [领取人] = '" & prd & "'")
        dr(prd & "_使用数量") = dt.Compute("Count(领取人)",filter & " And [领取人] = '" & prd & "' and 设备ID号 is not null")
        dr(prd & "_值") = dt.GetComboListString("设备id号", filter & " And [领取人] = '" & prd & "' and 设备ID号 is not null")
       
    Next
Next
MainTable= Tables("统计")

修改这句代码可以设置列的字符数

dtb.AddDef(prd & "_值", Gettype(String),999)

其余问题截图说明，没看懂。

例子，我测试没问题。

如果你的是外部数据源，看看 http://www.foxtable.com/webhelp/scr/2344.htm

这样

dr(prd & "_剩余设备号") = dt.GetComboListString("设备id号", filter & " And [领取人] = '" & prd & "'")

或者这样

dr(prd & "_剩余设备号") = dt.GetComboListString("设备id号", filter & " And [领取人] = '" & prd & "' and 设备ID号 is not null")