关于成品仓入、出库问题，急！在线等待！

D_net

UP!UP!
拜托！

cattjiu

错误信息是什么？

D_net

首先谢谢你的关注！
    关于“在tbljpcg表中出库数(cgs)字段的查阅选项卡中：查阅控件=组合框，行来源=SELECT [igs]-[cgs] AS cgsLimit FROM tbljpcg RIGHT JOIN tbljpig ON tbljpcg.jpp = tbljpig.jpp;“
    我觉得：如果像我这样做是意义不大的，因为igs(出库数）这一列并没有与jpuc(制品业体)、jpp(制品P)连接起来，任出库一批产品，都把所有的igs-cgs列出来了，而且，无法实时更新。
    你有没有改进一下的方法？

或者，在事件中编程怎样？我在frmjpcg窗体的BeforeUpdate事件中用了代码，但是无法达到目的。

（文件我发email给你了）

D_net

问题解决：
在事件过程里编码：
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim conn  As New ADODB.Connection
    Set conn = CurrentProject.Connection
    Dim rst As New ADODB.Recordset
    Dim msg As String
    Dim m As String
    rst.Open "select * from tbljpig where jpuc='" & Me.jpuc & "'and jpp='" & Me.jpp & "'and rem='" & Me.rem & "'", conn, adOpenKeyset, adLockOptimistic
   
    If rst.EOF Then
        MsgBox "RODUCTION NULL!"
        jpgb.SetFocus
        
    End If
   
    Set conn = Nothing
    Set rst = Nothing
End Sub


同时多谢各位！尤其是cattjiu ！

[此贴子已经被作者于2003-2-20 18:12:20编辑过]