标题：[求助]如何将选定行填充到其它表

1楼

ybmjy 发表于：2009/11/17 22:05:00

如题,只复制被找到的行

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

[此贴子已经被作者于2009-11-18 0:13:10编辑过]

2楼

mr725 发表于：2009/11/17 22:22:00

参考： http://www.foxtable.com/dispbbs.asp?boardid=2&id=2823&page=&star=1

3楼

ybmjy 发表于：2009/11/17 22:53:00

只填充选定的行

4楼

mr725 发表于：2009/11/17 22:56:00

啥意思？做个例子上来，会有人帮你搞定。

5楼

程兴刚 发表于：2009/11/17 23:10:00

Addnew()

6楼

wcs 发表于：2009/11/17 23:37:00

用填充器，并使用filer属性。

7楼

ybmjy 发表于：2009/11/18 0:05:00

filer这个属性不知如何写

8楼

狐狸爸爸 发表于：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

9楼

舜风发表于：2009/11/18 9:48:00

10楼

ybmjy 发表于：2009/11/18 11:07:00

谢谢他爸

共14 条记录, 每页显示 10 条, 页签: [1] [2]