Question

请帮助，当我尝试使用相同模型类的相同代码时，该代码可以完美运行，但是与Firebase应用程序连接崩溃将花费很多时间，多次连接然后连接一次，但是在连接应用程序成功运行之后，直到我更改数据库引用名称或删除错误地.....是每次都发生还是仅与我一起发生？？

06-22 08:54:46.182 16552-16552/sszj_capricorn.pricecontrolists E/AndroidRuntime: FATAL EXCEPTION: main
Process: sszj_capricorn.pricecontrolists, PID: 16552
java.lang.NoSuchMethodError: com.google.firebase.FirebaseApp.zzNU
at com.google.firebase.database.FirebaseDatabase.getInstance(Unknown Source) 
at com.google.firebase.database.FirebaseDatabase.getInstance(Unknown Source)
at sszj_capricorn.pricecontrolists.Controller.MainActivity.onCreate(MainActivity.java:44)
at android.app.Activity.performCreate(Activity.java:5275)
at android.app.Instrumentation.callActivityOnCreate(Instrumentation.java:1087)
at android.app.ActivityThread.performLaunchActivity(ActivityThread.java:2166)
at android.app.ActivityThread.handleLaunchActivity(ActivityThread.java:2252)   
at android.app.ActivityThread.access$800(ActivityThread.java:139)
at android.app.ActivityThread$H.handleMessage(ActivityThread.java:1200)
at android.os.Handler.dispatchMessage(Handler.java:102)
at android.os.Looper.loop(Looper.java:136)
at android.app.ActivityThread.main(ActivityThread.java:5103)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:515)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:790)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:606)
at dalvik.system.NativeStart.main(Native Method)

Answer 1

Option Explicit

Sub Main()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim Last_Row2 As Long, i As Integer

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

Last_Row2 = ws2.Range("A" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False

With ws2
For i = 1 To Last_Row2 Step 1

    If .Range("F" & i).Value = "OPEN" Then

        ' copy pastes the info if the transaction is OPEN

ws2.Range("B" & i, "E" & i).Copy
ws1.Range("A" & i, "D" & i).PasteSpecial

    ElseIf .Range("F" & i).Value = "" Then

        ' deletes the info if the transaction is no longer OPEN

ws1.Range("A" & i, "D" & i).ClearContents

    End If
Next i
End With

Application.ScreenUpdating = True

        ' deletes blank rows in Summary Sheet

Dim iCounter As Long

Worksheets("Sheet1").Range("A3:D50").Select

With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For iCounter = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(iCounter)) = 0 Then
Selection.Rows(iCounter).EntireRow.Delete
End If
Next iCounter
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True

End With

ws1.Cells(1, 1).Select

End Sub

}

发行相关的Firebase数据库

1 个答案: