新增文章
文章标题
分类
C#
云星空
K3 BOS
K3 功能
用友
Oracle
python
SQL
MySql
PHP
HTML
script
windows
Access
影视后期
财务
服务
生活
内容
Private Sub FItemId_GotFocus() On Error Resume Next Me.FItemId.RowSource = "SELECT Item.FItemId, Item.FItemNo AS 貨號, Item.FItemName AS 貨品, Item.FItemPrice AS [單價$] FROM Item ; " Forms![Bill]![FEntryId].Value = Me.FEnrtyId.Value Forms![Bill]![Sub2].Form.RecordSource = "SELECT Item.FItemNo, Item.FItemName, Item.FItemPrice, ListEntry.* FROM Item INNER JOIN ListEntry ON Item.FItemId = ListEntry.FItemId WHERE ListEntry.FEntryid = " & Me.FEnrtyId.Value Forms![Bill]![Sub2].Form.Requery End Sub
返回
保存