Access中模块的程序怎么转到SQL中实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Access中模块的程序如下，现在想在SQL中实现。主要是不知道这个循环判断逻辑怎么用SQL语言实现。求大神帮忙啊～～～

Private Sub UpdateReSA()

  DimTable_SA

  Dimcount As Long

  Dimi As Long

  DimInsured(Num) As String

  DimRetain(Num) As Double

  DimAvailableRetain(Num) As Double

   

  SetTable_SA = CurrentDb.OpenRecordset("20 SA")

  

count = Table_SA.RecordCount

Table_SA.MoveFirst

Insured(0) = 0

Retain(0) = 0

AvailableRetain(0) = Table_SA.可用自留额

For i = 1 To count

'Do While Not Table_SA.EOF

Table_SA.Edit

   

Insured(i) = Table_SA.INSURED_ID

   If Insured(i) = Insured(i - 1) Then

       Table_SA.可用自留额 = Max(AvailableRetain(i - 1) - Retain(i - 1), 0)

   Else

   End If

   If Table_SA.已分出标记 = 0 And Table_SA.分保类型 = "Auto" Then

  

       Table_SA.自留额 = Min(Table_SA.风险保额 * Table_SA.合同成数, Table_SA.可用自留额)            

   Else

       Table_SA.自留额 = Table_SA.风险保额 * (1 - Table_SA.分出比例)

   End If

   Table_SA.分出额 = Table_SA.风险保额 - Table_SA.自留额

   

   Retain(i) = Table_SA.自留额

   AvailableRetain(i) = Table_SA.可用自留额

   Table_SA.Update

   Table_SA.MoveNext

'Loop  Next    Table_SA.Close    MsgBox "Finish！"     End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：access Acces cces ESS CES count 程序