Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "UPDATE httable SET 操作员=\'" & user.Name & "\',对账编号=\'" & dzbh & "\',买家对账 = \'已对账\',买家结算状况=\'已结算\',买方付款=\'已付\',买家付款状况=\'" & Date.Today & "\' WHERE 图录号 In( " & temp & ")"
\'msgbox (cmd.CommandText)
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE buyerdz SET 操作员=\'" & user.Name & "\',对账状态=\'已对账\',对账编号=\'" & dzbh & "\' where 序号 In(" & tem & ")"
\'msgbox (cmd.CommandText)
cmd.ExecuteNonQuery()