按钮加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://www.foxtable.com/webhelp/topics/1533.htm

DataTables("表B").DeleteFor("") 'http://www.foxtable.com/webhelp/topics/0394.htm

Dim drs As List(Of DataRow)
drs = DataTables("表A").Select([制品名称] ='" & e.form.controls("TexBox1").text & "'"，"序号 desc") 'http://www.foxtable.com/webhelp/topics/0400.htm、http://www.foxtable.com/webhelp/topics/1284.htm

For i as integer = 0 to math.min(100,drs.count) - 1 'http://www.foxtable.com/webhelp/topics/0280.htm

dim dr1 As DataRow = drs(i)
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next

主题：按钮加载