希望有人可以帮个忙完成我的三个疑问！！！！

stvent

问题1、点击树结构合同编号，打开对应合同，以便录入人员修改(最好能以合同_录入作模板打开)
问题2、合同信息录入窗体中的全同支付明细，当中有一列所占比例，要求算出所申请支付金额所占合同金额的百分比。
问题3、合同信息录入窗体中的全同支付明细，当中有一列未支付金额，要求算出支付金额后，还剩多少未支付(合同金额-支付金额）)

CIBOO2000

一个个找问题，论坛上都有解决办法的。

stvent

我都找过了，没办法才求助的！～希望各位帮帮忙

stvent

一晚过去，仍然无助！~

stvent

下载次数: 33
还没人解答吗？

kangking

第一个问题，
Private Sub Form_Open(Cancel As Integer)

    Dim stID As String
    If IsNull(Me.OpenArgs) Then
        'stID = CLng(Nz(DMax("CLng([入库单ID])", "入库单"), 0)) + 1
        stID = Nz(DMax("[合同ID]", "合同主", "合同ID  Like 'R*'"), 0)
        stID = "R" + Format(CLng(Right(Nz(stID), 6) + 1), "000000")

    Else
        stID = Me.OpenArgs

        Me.RecordSource = "Select * From 合同主 Where 合同编号='" & stID & "'"
        Exit Sub
    End If
。。。。。。。。。。。
没有完全理解你的代码，
加了一句：Me.RecordSource = "Select * From 合同主 Where 合同编号='" & stID & "'"
然后就退出了过程：Exit Sub
看起来像是达到了你的要求。

stvent

kangking 发表于 2011-4-29 10:05
第一个问题，
Private Sub Form_Open(Cancel As Integer)

谢谢你！~