以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何将选定行填充到其它表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5028)
--  作者：ybmjy
--  发布时间：2009/11/17 22:05:00
--  [求助]如何将选定行填充到其它表
如题,只复制被找到的行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

[此贴子已经被作者于2009-11-18 0:13:10编辑过]
--  作者：mr725
--  发布时间：2009/11/17 22:22:00
--  
参考： http://www.foxtable.com/dispbbs.asp?boardid=2&id=2823&page=&star=1
--  作者：ybmjy
--  发布时间：2009/11/17 22:53:00
--  
只填充选定的行
--  作者：mr725
--  发布时间：2009/11/17 22:56:00
--  
图片点击可在新窗口打开查看  啥意思？  做个例子上来，会有人帮你搞定。
--  作者：程兴刚
--  发布时间：2009/11/17 23:10:00
--  
Addnew()
--  作者：wcs
--  发布时间：2009/11/17 23:37:00
--  
用填充器，并使用filer属性。
--  作者：ybmjy
--  发布时间：2009/11/18 0:05:00
--  
filer这个属性不知如何写
--  作者：狐狸爸爸
--  发布时间：2009/11/18 9:04:00
--  
Dim Filter As String
Dim Product As String
Dim Discount As Double
With e.Form.Controls("TextBox1")
    Product = .value
    If Product > "" Then
        Filter = "[姓名] Like " & "\'*" & product & "*\'" & " Or [身份证号码] Like " & "\'*" & product & "*\'" & " Or [户主] Like " & "\'*" & product & "*\'" 
    End If
    For Each dr1  as DataRow In DataTables("适龄青年数据库").Select(Filter)
          Dim dr2 As DataRow = DataTables("报名数据").AddNew
          For Each c As DataCol In DataTables("适龄青年数据库").DataCols
            dr2(c.Name) = dr1(c.Name)
          Next
    Next
End With
--  作者：舜风
--  发布时间：2009/11/18 9:48:00
--  

收藏
--  作者：ybmjy
--  发布时间：2009/11/18 11:07:00
--  
谢谢他爸