Question

我在一个项目中有2个Web应用程序。我需要将WebApp1的操作重定向到WebApp2的视图。如何管理路由？

Answer 1

我想这样会有所帮助。

Private Sub Command65_Click()
Dim StartTime As Double
Dim lat1 As Double, long1 As Double
Dim Distance As Integer
'Dim Variables

StartTime = Timer

lat1 = DLookup("lat", "qryLatLongZip", "Zip='" & Me.Text2 & "'")
long1 = DLookup("long", "qryLatLongZip", "Zip='" & Me.Text2 & "'")

CurrentDb.Execute "UPDATE qryClinicsLatLongZip SET Distance = ArcCos(Sin(" & lat1 & ") * Sin(lat) + Cos(" & lat1 & ") * Cos(lat) * Cos(" & long1 & "-long)) * (180 / 3.14159265359) * 60 * 1.1515"

Me.Filter = "Distance<=" & Me.Text1
Me.FilterOn = True
'Filter the form with calculated distance by prompted radius

MsgBox "This code ran successfully in " & Round(Timer - StartTime, 2) & " seconds", vbInformation

End Sub

重定向到另一个Web应用程序ASP.NET Core中的控制器

1 个答案: