以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]入库窗口_Table1可见,供二选一  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53694)

--  作者:xokxiao
--  发布时间:2014/7/13 19:51:00
--  [求助]入库窗口_Table1可见,供二选一

商品资料表有三条,其中助记码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


--  作者:有点甜
--  发布时间:2014/7/13 20:13:00
--  

 如下,在表里回车填入

 

    

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:商品入库.table