主题：请教扫描枪

直接写表名

 

Tables("表A.表B").AddNew

此主题相关图片如下：5.png

DataTables("进库清单.进库明细").DeleteFor("")

 

改成

 

Dim t As Table = Tables("进库清单.进库明细")
For i As Integer = t.rows.count - 1 To 0 Step -1
    t.rows(i).delete
Next

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

点击浏览该文件:仓库.foxdb

没理解你的逻辑，扫描ID后，要去哪个表获取什么数据？要把数据填入到那里去。请举例说明。

 

If e.KeyCode = keys.Enter
    Dim Val As String = e.Form.Controls("TextBox1").Text
    If Val > "" Then
        Dim dr As DataRow
        dr =DataTables("进库明细").Find("ID= '" & Val & "'")
        If dr IsNot Nothing Then
            MessageBox.Show("此ID已经存在!")
            e.Form.Controls("TextBox1").Value = Nothing
            Return
        Else
            Dim r As Row = Tables("进库明细").AddNew
            r("ID")= Val
            e.Form.Controls("TextBox1").Value = Nothing
        End If
    End If
    e.Cancel = True
End If

老师，扫描ID，进库明细获得扫描数据，在进库明细获得数据增加行的时候，获取母表（进库清单）的数据，这样进库明细的数据有两部分组成，一部分是通过扫描获得，一部分是通过关联表增加行时相关联的列自动从母表（进库清单）获取数据。

跨表引用：http://www.foxtable.com/webhelp/scr/1451.htm

老师，跨表引用的话，需要扫描的列中有数据和目标表相同的，目前扫描的数据和目标没有相同的。

在关联表增加行的话，默认对应就是母表选中的行的数据，直接取这行数据就行了

是的，但是通过扫描枪增加行的话，貌似就不起作用了，不知道代码要如何修改才行。