主题：查找后输入

 对应例子发上来。

 做一个对应的例子发上来

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

 

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

 不知道你想做什么。

 

 你直接执行那段代码啊

 关键是你想做什么？我不理解

 你的年度在哪里获取得到？你说的相关数据是什么东西，从哪里获取什么条件的数据

 识别号在从哪里获取。

 我真不知道你想干什么了啊。

 

 1、从哪一年开始？

 

 2、从哪一个识别号开始？

 

 3、你能不能表达清楚一点？点击的时候别人不知道你先做什么？在做任何操作之前，你先要获取到所需要的东西啊

 如下

 

  

    

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

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