主题：查找后输入

 我测试没有任何问题

无语 你有好好测试过么

 只要列表项目的表和查询的表一致才行，不一致的话也至少要有对应关系

 那你就在列表项目那里加一列，写入O、P、C等

 

 

Dim dt1 As DataTable = DataTables("客户的表")
Dim dt2 As DataTable = DataTables("列表项目")
Dim dt3 As DataTable = DataTables("要处理的表")
Dim cs As List(Of String()) = dt2.GetValues("第一列|第二列")
Dim drs As List(Of DataRow) = dt1.Select("识别号 = '" & vars("sbh") & "' and 年度 = '" & vars("nd") & "'")
If drs.count > 0 Then
    For Each dr As DataRow In drs
        For Each c As String() In cs
            Dim ndr As DataRow = dt3.AddNew
            ndr("年度") = dr("年度")
            ndr("识别号") = dr("识别号")
            ndr("列表项目") = c(1)
            ndr("获取的数据") = dr(c(0))
        Next
    Next
Else
    For Each c As String() In cs
        Dim ndr As DataRow = dt3.AddNew
        ndr("年度") = vars("nd")
        ndr("识别号") = vars("sbh")
        ndr("列表项目") = c(1)
        ndr("获取的数据") = Nothing
    Next
End If
vars("nd") += 1