有点甜老师,不好意思,再次打扰了

你解答的是开发版,我打不开,能不能换商业版的解答

能打开的朋友也麻烦一下把源码贴出来,谢谢

1。TEXTBOX1按下ENTER没有反应，要按多次
2。数据是通过查询读取和写入.

如果是通过查询读取商品资料只有0条，就提示商品资料库内没有该商品

如果是通过查询读取商品资料只有一条，就直接写入商品入库，商品资料没有的项目，就通过修改商品入库

如果是通过查询读取商品资料一条以上（不含一条），就跳出表，供选择后在写入商品入库，商品资料没有的项目，就通过修改商品入库

老师这个打不开

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

点击浏览该文件:管理项目11.rar

项目事件

计划管理

表事件

窗口表事件

窗口与控件事件

入库窗口_Button1_Click

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

If r Is Nothing Then

    msgbox("没有该商品")

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("TextBox5").text

    ndr("入库日期") = e.Form.Controls("DateTimePicker1").Value

End If

入库窗口_TextBox1_KeyDown

If e.KeyCode = Keys.Enter Then

    Dim Filter As String

    With e.Form.Controls("TextBox1")

        If .text IsNot Nothing Then

            Filter &= "助记码= \'" & .text & "\'"

            Filter &= " or 条形码= \'" & .text & "\'"

            Filter &= " or 商品名= \'" & .text & "\'"

            Filter &= " or 自编码= \'" & .text & "\'"

            Filter &= " or 商品号= \'" & .text & "\'"

        End If

    End With

    If Filter > "" Then

        Tables("商品资料表").Filter = Filter

    Else

        Tables("商品资料表").Filter = ""

    End If

    \'Tables("商品资料表").DataTable.Load()

    e.cancel = True

End If

自定义函数

全局代码

菜单事件