主题：[求助]一对多查询合并数值

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

点击浏览该文件:库位1.foxdb

回复6楼，你说的，和你给的例子不对应。上传具体例子说明你的问题。

keydown事件

 

If e.keycode = 13 Then
    Dim r As Row = Tables("刀具领用").current
    Dim ls = r.DataRow.lines("领用刀号")
    ls.add(e.Sender.Text)
    r.DataRow.lines("领用刀号") = ls
    e.cancel = True
    e.Sender.SelectAll
End If

 

If e.keycode = 13 Then
    For Each r As DataRow In  DataTables("刀具领用").Select("[刀具编号] like '%" & e.sender.text & "%' ") '找出包含输入值的刀具编号行
       
        Dim ls = r.lines("领用刀号")
        ls.add(e.Sender.Text)
        r.lines("领用刀号") = ls
        e.cancel = True
        e.Sender.SelectAll
    Next
End If