又蒙圈了，请老师们指点一下！

danhanqing

Private Sub 批量销单作业_Click()
   lvname = "ListView6"
   Dim Conn As adodb.Connection
   Set Conn = LinkDB
   Dim Rs As New adodb.Recordset
   For i = 1 To Me.Controls(lvname).ListItems.Count
   已付 = Me.Controls(lvname).ListItems(i).SubItems(9)
   单据编号 = Me.Controls(lvname).ListItems(i).SubItems(1)
   sql = "Update 财务结算总表 set 已付=已付 ,尚欠=0  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and 单据编号='" & 单据编号 & "'"
    Conn.Execute sql
    Next i
   Conn.Close
   Set Rs = Nothing: Set Conn = Nothing
   MsgBox "销单成功！"
End Sub
错误提示是：标准表达式中数据类型不匹配。
可我检查数据库中，已付、尚欠、单据编号 字段均为数值类型……
谢谢老师们点拨！

danhanqing

刚测试，如果后面单据编号条件不加的话，执行是正常的。但我只想更新listview6中对应单据编号的记录

danhanqing

请老师们帮忙，在线急等！

魂断蓝桥

set 已付=已付 文本字段需要加单引号

比如 set 已付='已付'

魂断蓝桥

另： for 循环的时候，最好是开启事务。

循环结束后再提交。

danhanqing

魂断蓝桥 发表于 2018-5-29 13:33
set 已付=已付 文本字段需要加单引号

比如 set 已付='已付'

已付不是文本字段，也是数字

danhanqing

Private Sub 批量销单作业_Click()
   lvname = "ListView6"
   Dim Conn As adodb.Connection
   Set Conn = LinkDB
   Dim Rs As New adodb.Recordset
   For i = 1 To Me.Controls(lvname).ListItems.Count
   已付 = Val(Me.Controls(lvname).ListItems(i).SubItems(9))
   单据编号 = Val(Me.Controls(lvname).ListItems(i).SubItems(1))
   sql = "Update 财务结算总表 set 已付=已付,尚欠=0  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and 单据编号=单据编号"
   Next i
   Conn.Execute sql
   Conn.Close
   Set Rs = Nothing: Set Conn = Nothing
   MsgBox "销单成功！"
End Sub
改成这样后，尚欠倒是更新成功了，但已付却更新结果不对，比如说listview6中有三条记录，最后一条的金额是10，另两条一个是20，一个是30，更新后，是要将数据库中已付更新为对应的金额值，结果数据库中的已付全都更新成10了！

melville

danhanqing 发表于 2018-5-29 13:54
Private Sub 批量销单作业_Click()
   lvname = "ListView6"
   Dim Conn As adodb.Connection

Conn.Execute sql
这句要在next里面，要不然就只会执行最后一次的语句。可以F8调试看看sql语句赋值有没有问题。

danhanqing

melville 发表于 2018-5-29 14:08
Conn.Execute sql
这句要在next里面，要不然就只会执行最后一次的语句。可以F8调试看看sql语句赋值有没 ...

还是一样。“尚欠”写“0”成功，但“已付”写的值不对，都是“0”，我用msgbox 显示"已付"的取值都是正确的！

danhanqing

   lvname = "ListView6"
   Dim Conn As adodb.Connection, 已付金额
   Set Conn = LinkDB
   Dim Rs As New adodb.Recordset
   For i = 1 To Me.Controls(lvname).ListItems.Count
   sql = "Update 财务结算总表 set 已付='" & Val(Me.Controls(lvname).ListItems(i).SubItems(9)) & "',尚欠=0 where 单据编号='" & Me.Controls(lvname).ListItems(i).SubItems(1) & "'"
   Conn.Execute sql
   Next i
   Conn.Close
   Set Rs = Nothing: Set Conn = Nothing
   MsgBox "销单成功！"

改成这样后，提示数据类型不匹配……



而数据库中单据编号、已付、尚欠都是数字类型。