子窗体内录入时,通过录入使用查询调用表信息

Henry D. Sy

Private Sub 药品编号_AfterUpdate()
    Me.单价 = Me.药品编号.Column(1)
End Sub
药品更新后，明细表上的单价=药品编号组合框的第二列，也就是药品资料表上的零售价

Henry D. Sy

附件更新在8楼

Private Sub 药品编号_Change()
    Dim strCriteria As String
    Dim strSQL As String
    If Not IsNull(Me.药品编号.Text) Then
        strCriteria = "Where 拼音码 like '" & Me.药品编号.Text & "*'"
        strSQL = "SELECT 药品编号,药品名称, 零售价格 FROM 基本药品信息表 " & strCriteria
        Me.药品编号.RowSource = strSQL
    End If
    Me.药品编号.Dropdown
End Sub

yisen

原帖由 Henry D. Sy 于 2009-1-7 15:51 发表
附件更新在8楼

版主以上代码如何解释?
先声明两个变量
然后判断编号是不是空?再之后那两个变量的值等于什么?
公式的意思我不懂,可以帮我分析一下不?
多谢

Henry D. Sy

Private Sub 药品编号_Change()
    Dim strCriteria As String          '条件字符串变量
    Dim strSQL As String               'sql字符串变量
    If Not IsNull(Me.药品编号.Text) Then       '如果药品编号的文本不为空
        strCriteria = "Where 拼音码 like '" & Me.药品编号.Text & "*'"           ‘那么给条件字符串赋值
        strSQL = "SELECT 药品编号,药品名称, 零售价格 FROM 基本药品信息表 " & strCriteria        ’给sql字符串赋值
        Me.药品编号.RowSource = strSQL                            ‘设置药品编号组合框的行来源
    End If
    Me.药品编号.Dropdown                       '药品编号 组合框自动展开
End Sub

yisen

请问出库表如何在子窗体内的药品编号栏录入时,实现象入库明细表那样的功能?

即录入拼音码出现药品名供选择............

[ 本帖最后由 yisen 于 2009-1-9 10:46 编辑 ]

Henry D. Sy

出库与入库问题相同，你应该自己参照入库的做法，自己动手。
这样对于学习有很大的帮助。

yisen

原帖由 Henry D. Sy 于 2009-1-7 20:30 发表
Private Sub 药品编号_Change()
    Dim strCriteria As String          '条件字符串变量
    Dim strSQL As String               'sql字符串变量
    If Not IsNull(Me.药品编号.Text) Then       '如果药品编 ...

知道.谢谢,主要是我对于上述代码还是理解有问题
1>为什么要设条件字符串变量和SQL字符变量?
2>这两个代码赋值部分公式.
"Where 拼音码 like '" & Me.药品编号.Text & "*'"
与"SELECT 药品编号,药品名称, 零售价格 FROM 基本药品信息表 " & strCriteria      
分别是 什么意思?
3>另外我在出库录入时应该选择入库明细表来源表.可是入库明细表中只有药品编号一个,而没有拼音码及药品名称等于字段.不知如何解决.

Henry D. Sy

1. 不设也可以，那就要直接写行来源。这样不好
   设了，可读性强，而且便于维护。
2. strCriteria 相当于 where 姓名 like '李*'
    sql 与一般有条件的sql语句没有什么两样
3. 组合框的行来源直接来源于药品资料表

yisen

原帖由 Henry D. Sy 于 2009-1-7 22:02 发表
3. 组合框的行来源直接来源于药品资 ...

来源于药品资料的话,那当库存没有该药品时如何处理呢?
用哪个条件公式?

Henry D. Sy

难道你没有货也可以出库？