主题：组合件排产

Dim filter1 As String
filter1 = "商品名 in ('" & e.form.controls("CheckedComboBox1").Text.replace(",", "','") & "')"
Dim drs1 As List(Of DataRow) = DataTables("加工用製品构成").Select(filter1, "[优先级]")
Systemready = False
Dim t As Table = e.form.controls("Table1").Table
t.ResumeRedraw
t.StopRedraw
For i1 As Integer = 0 To drs1.count - 1
    Dim dr1 = t.addnew()
    Dim pr1 = drs1(i1)
    dr1("制品名") = pr1("商品名")
    dr1("部组名") = pr1("部组名")
    dr1("优先级") = pr1("优先级")
    dr1("类别") = "计划"
    dr1("制单号") = "" & e.form.controls("CheckedComboBox2").Text & ""
    dr1 = t.addnew()
    dr1("制品名") = pr1("商品名")
    dr1("部组名") = pr1("部组名")
    dr1("优先级") = pr1("优先级")
    dr1("类别") = "实际"
    dr1("制单号") = "" & e.form.controls("CheckedComboBox2").Text & ""
Next
t.ResumeRedraw
Systemready = True

DataTables("加工排产").Save()

 必须把你的优先级编号修改一下才行，改成这样的格式

04-01-01

04-01-11

04-01-12

04-02-01

04-02-10

1、filter1 = "商品名 in ('" & e.form.controls("CheckedComboBox1").Text.replace(",", "','") & "') and 优先级 is not null"

2、没看懂你的意思，根据例子截图说明。

Dim filter1 As String
filter1 = "商品名 in ('" & e.form.controls("CheckedComboBox1").Text.replace(",", "','") & "')  and 优先级 Is Not null and 部组名 Is Not null"
Dim bzs As List(Of String) = DataTables("加工用製品构成").GetValues("部组名", filter1, "优先级")
Systemready = False
Dim t As Table = e.form.controls("Table1").Table
t.ResumeRedraw
t.StopRedraw
For Each bz As String In bzs
    Dim ndr As Row
    Dim pr As DataRow
    For Each pr In DataTables("加工用製品构成").Select("部组名 = '" & bz & "'", "优先级")
        ndr = t.addnew
        ndr("制品名") = pr("商品名")
        ndr("部品id") = pr("部品id")
        ndr("优先级") = pr("优先级")
        ndr("类别") = "计划"
        ndr("制单号") = "" & e.form.controls("CheckedComboBox2").Text & ""
        ndr = t.addnew()
        ndr("制品名") = pr("商品名")
        ndr("部品id") = pr("部品id")
        ndr("优先级") = pr("优先级")
        ndr("类别") = "实际"
        ndr("制单号") = "" & e.form.controls("CheckedComboBox2").Text & ""
    Next
    ndr = t.addnew()
    ndr("制品名") = pr("商品名")
    ndr("部组名") = pr("部组名")
    ndr("优先级") = pr("优先级")
    ndr("类别") = ""
    ndr("制单号") = "" & e.form.controls("CheckedComboBox2").Text & ""
Next

filter1 = "商品名 in ('" & e.form.controls("CheckedComboBox1").Text.replace(",", "','") & "') and 优先级 Is Not null and 部组名 Is null"
Dim drs1 As List(Of DataRow) = DataTables("加工用製品构成").Select(filter1, "[优先级]")
For i1 As Integer = 0 To drs1.count - 1
    Dim dr1 = t.addnew()
    Dim pr1 = drs1(i1)
    dr1("制品名") = pr1("商品名")
    dr1("部组名") = pr1("部组名")
    dr1("优先级") = pr1("优先级")
    dr1("类别") = "计划"
    dr1("制单号") = "" & e.form.controls("CheckedComboBox2").Text & ""
    dr1 = t.addnew()
    dr1("制品名") = pr1("商品名")
    dr1("部组名") = pr1("部组名")
    dr1("优先级") = pr1("优先级")
    dr1("类别") = "实际"
    dr1("制单号") = "" & e.form.controls("CheckedComboBox2").Text & ""
Next

t.ResumeRedraw
Systemready = True

DataTables("加工排产").Save()