Access与Sql Server结合对企业开发有很大好处--2013-10-16-Access培训群(195471449)

Office中国群管

      Ａ 于2013-10-16 20-38-12：
Dim A As String
Dim B As String
Dim C As String
Dim D As String
On Error GoTo Ctl_Err
    If IsNull(Me.计算.Value) = False Then
        Me.计算.Value = Eval(Me.计算.Value)
    Else
         Me.计算.SetFocus
        Exit Sub
    End If
    If OpenArgs  "" Then
        A = OpenArgs
        B = Mid(A, 1, InStr(1, A, ",") - 1)
        A = Replace(A, B & ",", "")
        If InStr(1, A, ",") = 0 Then
            C = B
            D = A
            Forms(C).Form.Controls(D).Value = Me.计算.Value
        Else
            C = Mid(A, 1, InStr(1, A, ",") - 1)
            A = Replace(A, C & ",", "")
            D = A
            Forms(B).Controls(C).Form.Controls(D).Value = Me.计算.Value
        End If
        DoCmd.Close acForm, "myCalc"
    End If

Office中国群管

      Ａ 于2013-10-16 20-38-38：
主习  能解释下这个计算器的等号么？

Office中国群管

      Ａ 于2013-10-16 20-38-50：
看不明白[face10.gif]

smileyoufu

席主习 于2013-10-16 20-41-12：
我也看不明白

Office中国群管

      Ａ 于2013-10-16 20-41-23：
额

smileyoufu

席主习 于2013-10-16 20-41-36：
运气真这么好么

Office中国群管

      Ａ 于2013-10-16 20-42-10：
我把原文件发给你  你帮我瞧瞧行不

smileyoufu

席主习 于2013-10-16 20-43-14：
我这会忙

Office中国群管

      Ａ 于2013-10-16 20-43-41：
好吧   那我等会儿[face60.gif]

huangli0356

        黄南 于2013-10-16 20-57-47：
为什么还有经验送呢？