主题：查找后输入

有个需求：”年“作为判断条件的逻辑是这样的：打开某个窗口时以最早的年为条件查找数据，找到后直接取得相应的数据给”列表项目“，第二次点击新增的时候，"年“自动加1，并根据加1后的”年“查找数据，找到后取得相应的数据赋值给”列表项目“，如果“年'数据位空,需要手工录入才能保存。可是不会写语句啊，哪位大侠帮忙写一下啊。谢谢了。查询的表和要录入的表不是同一张表。

 对应例子发上来。

就像这样的通过识别号和年度取得列表项目的值，并且在年度为空时手工录入项目的值。

点击增加按钮时需要先找到识别号，然后判断年度值，根据年度值取得表A中的数据自动赋值给要得到的结果表。再次点击增加是，继续找到下一个年度即年度加1，然后根据年度值取得相应的A表中的数据自动赋值给要得到的结果表，直到年度值为空时需要手工录入相应的要得到的结果表中的数据。

 做一个对应的例子发上来

上传了附件，可是没显示啊，不知道为什么？

 http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

我就是这样操作的啊，提示今天已近上传了三个文件，可是文件帖子里没有。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动输入.rar

Dim dt1 As DataTable = DataTables("客户的表")
Dim dt2 As DataTable = DataTables("列表项目")
Dim dt3 As DataTable = DataTables("要处理的表")
Dim cs As List(Of String) = dt2.GetValues("第一列")
For Each dr As DataRow In dt1.Select("", "年度,识别号")
    For Each c As String In cs
        Dim ndr As DataRow = dt3.AddNew
        ndr("年度") = dr("年度")
        ndr("识别号") = dr("识别号")
        ndr("列表项目") = c
        ndr("获取的数据") = dr(c)
    Next
Next