看起来是把SF列转行,那就不能 From element In SF 循环8次啊。 应该是把 SF 放入一个数组,然后循环这个数组的数组,等于是查询 SF 一次。
Dim aa() = {1} Dim query = From element In aa _ Let GeneralAntislip = SF(1).ToString("N") _ Let GeneralAntioverturning = SF(2).ToString("N") _ Let ImpactAntislip = SF(3).ToString("N") _ Let ImpactAntioverturning = SF(4).ToString("N") _ Let SeismicAntislip = SF(5).ToString("N") _ Let seismicAniteoverning = SF(6).ToString("N") _ Let sigmamax = SF(7).ToString("N") _ Let sigmamin = SF(8).ToString("N") _ Select GeneralAntislip, GeneralAntioverturning, ImpactAntislip _ , ImpactAntioverturning, SeismicAntislip, seismicAniteoverning _ , sigmamax, sigmamin 上面这个太恶心了,循环其实和SF没关系。 其实下面这样更合适。 Structure element Public GeneralAntislip As String Public GeneralAntioverturning As String Public ImpactAntislip As String Public ImpactAntioverturning As String Public SeismicAntislip As String Public seismicAniteoverning As String Public sigmamax As String Public sigmamin As String End Structure Dim query As New List(Of element) query.Add(New element With { _ .GeneralAntislip = SF(1).ToString("N"), _ .GeneralAntioverturning = SF(2).ToString("N"), _ .ImpactAntislip = SF(3).ToString("N"), _ .ImpactAntioverturning = SF(4).ToString("N"), _ .SeismicAntislip = SF(5).ToString("N"), _ .seismicAniteoverning = SF(6).ToString("N"), _ .sigmamax = SF(7).ToString("N"), _ .sigmamin = SF(8).ToString("N")} _ )
应该是把 SF 放入一个数组,然后循环这个数组的数组,等于是查询 SF 一次。
Dim query = From element In aa _
Let GeneralAntislip = SF(1).ToString("N") _
Let GeneralAntioverturning = SF(2).ToString("N") _
Let ImpactAntislip = SF(3).ToString("N") _
Let ImpactAntioverturning = SF(4).ToString("N") _
Let SeismicAntislip = SF(5).ToString("N") _
Let seismicAniteoverning = SF(6).ToString("N") _
Let sigmamax = SF(7).ToString("N") _
Let sigmamin = SF(8).ToString("N") _
Select GeneralAntislip, GeneralAntioverturning, ImpactAntislip _
, ImpactAntioverturning, SeismicAntislip, seismicAniteoverning _
, sigmamax, sigmamin
上面这个太恶心了,循环其实和SF没关系。
其实下面这样更合适。
Structure element
Public GeneralAntislip As String
Public GeneralAntioverturning As String
Public ImpactAntislip As String
Public ImpactAntioverturning As String
Public SeismicAntislip As String
Public seismicAniteoverning As String
Public sigmamax As String
Public sigmamin As String
End Structure Dim query As New List(Of element)
query.Add(New element With { _
.GeneralAntislip = SF(1).ToString("N"), _
.GeneralAntioverturning = SF(2).ToString("N"), _
.ImpactAntislip = SF(3).ToString("N"), _
.ImpactAntioverturning = SF(4).ToString("N"), _
.SeismicAntislip = SF(5).ToString("N"), _
.seismicAniteoverning = SF(6).ToString("N"), _
.sigmamax = SF(7).ToString("N"), _
.sigmamin = SF(8).ToString("N")} _
)
#7: 哪个方案有问题?我用 Debug.Print 调试过,query 内容都是没问题的。