商品资料表有三条,其中助记码POS的有二条,

Forms("入库窗口").Controls("TextBox1").Text ="POS" 时,

入库窗口_Table1可见,供二选一,在写入商品入库,

红色部分就是这个意思,总是写不好

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

点击浏览该文件:商品入库.table

If Forms("入库窗口").Controls("TextBox1").Text ="" Then
    Return
    \'返回
Else
End If

Dim r As Row = Tables("商品资料表").Current

If r Is Nothing Then
   
    msgbox("商品资料没有该商品,请先增加")
   
Else
   
    If e.Form.Controls("商品资料表") =1 Then
       
        Dim ndr As DataRow = DataTables("商品入库表").AddNew
       
    Else
        If e.Form.Controls("商品资料表") >1 Then
           
           Tables("入库窗口_Table1").show
        Else
           
            Dim ndr As DataRow = DataTables("商品入库表").AddNew
           
            ndr("商品号") = r("商品号")
           
            ndr("商品名") = r("商品名")
           
            ndr("条形码") = r("助记码")
           
            ndr("助记码") = r("助记码")
           
            ndr("自编码") = r("自编码")
           
            ndr("规格") = r("规格")
           
            ndr("单位") = r("单位")
           
            ndr("生产单位") = r("生产单位")
           
            ndr("单位") = r("单位")
           
            ndr("批文") = r("批文")
           
            ndr("入库号") = e.Form.Controls("TextBox2").text
           
            ndr("数量") = e.Form.Controls("TextBox3").text
           
            ndr("单价") = e.Form.Controls("TextBox4").text
                        
            ndr("入库日期") = e.Form.Controls("DateTimePicker1").Value
           
        End If
    End If
End If

 如下，在表里回车填入

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

点击浏览该文件:商品入库.table