如何将查询结果指定字段赋值

danhanqing

    sql = "select 日期,单据编号,商品名称,核心参数,备注,单位,数量,单价,金额,尚欠 from 财务结算总表 where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and [尚欠]<>0  and 日期 between #" & 起始时间 & "# and #" & 结束时间 & "#"
    If sql = "" Then MsgBox "没有符合的记录": Exit Sub
    Rs.Open sql, Conn, 1, 1
    Do While Not Rs.EOF
    sql = "update 已付,尚欠 set [已付]=Rs.Fields("实收") ,[尚欠]=0 "
    Rs.MoveNext
    Loop
……

上段中，SQL查询结果是正常的，想将查询结果的已付字段和尚欠字段进行批量赋值，请老师们指点！谢谢！

xyxcc177

sql = "Update 财务结算总表  set 已付=实收 ,[尚欠]=0  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and [尚欠]<>0  and 日期 between #" & 起始时间 & "# and #" & 结束时间 & "#"
conn.Execute sql
msgbox "修改成功！"

danhanqing

xyxcc177 发表于 2017-10-15 16:48
sql = "Update 财务结算总表  set 已付=实收 ,[尚欠]=0  where 单位名称='" & Me.Controls(页面名称 & "_"  ...

谢谢老师指点！努力学习中！

danhanqing

xyxcc177 发表于 2017-10-15 16:48
sql = "Update 财务结算总表  set 已付=实收 ,[尚欠]=0  where 单位名称='" & Me.Controls(页面名称 & "_"  ...

老师，反操作为什么又不可以呢？


Private Sub 请款结算_反销单_Click()
    If Me.Controls(页面名称 & "_" & "起始时间") = "" Then 起始时间 = "2016/01/01" Else 起始时间 = Me.Controls(页面名称 & "_" & "起始时间")
    If Me.Controls(页面名称 & "_" & "结束时间") = "" Then 结束时间 = Format(Now(), "yyyy/mm/dd") Else 结束时间 = Me.Controls(页面名称 & "_" & "结束时间")
    Dim Conn As ADODB.Connection
    Set Conn = LinkDB
    Dim Rs As New ADODB.Recordset
    sql = "Update 财务结算总表 set 尚欠=实收 ,已付=0  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and [尚欠]＝0  and 日期 between #" & 起始时间 & "# and #" & 结束时间 & "#"
    Conn.Execute sql
    MsgBox "反销单成功！"
    Conn.Close
    Set Rs = Nothing: Set Conn = Nothing
End Sub

danhanqing

danhanqing 发表于 2017-10-15 18:00
老师，反操作为什么又不可以呢？

    sql = "Update 财务结算总表  set [尚欠]=[实收] ,[已付]=0  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and [尚欠]=0  and 日期 between #" & 起始时间 & "# and #" & 结束时间 & "#"
    Conn.Execute sql

danhanqing

danhanqing 发表于 2017-10-15 18:03
sql = "Update 财务结算总表  set [尚欠]=[实收] ,[已付]=0  where 单位名称='" & Me.Controls(页面 ...

OK了，谢谢！