Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1926|回复: 2

[已解决]你好请教一下VBA80集第74集,中间部分代码看不懂

[复制链接]
发表于 2012-7-7 15:20 | 显示全部楼层 |阅读模式
本帖最后由 fangcheng52013 于 2012-7-7 15:21 编辑

Sub 入库录入()
  Dim arr, arr1, x As Integer, mydate As Date, hm As String, sr As String, sql As String
  Dim mydata As New Data查询
   mydate = [e6]: hm = [g6]
   If mydata.是否存在("Ruku", "入库单号码", hm) = True Then
   MsgBox "已存在该入库单号码,请不要重复录入"
   Exit Sub
Else
  arr = Range("c8:g" & Range("f18").End(xlUp).Row)

  For x = 1 To UBound(arr)
   sr = "#" & mydate & "#" & ",'" & hm & "','" & arr(x, 1) & "','" & arr(x, 2) & "',"
   sr = sr & arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)
   sql = "Insert into ruku (入库日期, 入库单号码, 商品代码,商品名称,入库数量,入库单价,入库金额) VALUES(" & sr & ")"
   mydata.执行sql命令 (sql)
  Next x
  MsgBox "成功录入数据库"
End If
End Sub
以下两句
sr = "#" & mydate & "#" & ",'" & hm & "','" & arr(x, 1) & "','" & arr(x, 2) & "',"   sr = sr & arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)
这两句这样写可以吗  sr = "#" & mydate & "#" & ",'" & hm
sr = "#" & mydate & "#" & ",'" & hm
   sr = sr & arr(x, 1) & "','" & arr(x, 2) & "'," arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)



最佳答案
2012-7-7 16:36
fangcheng52013 发表于 2012-7-7 15:22
各位帮忙解释一下,谢谢

看了一下,应该可以,没测试
只是字符串连接。只要不少内容,分几行连接,都可以的。
 楼主| 发表于 2012-7-7 15:22 | 显示全部楼层
回复

使用道具 举报

发表于 2012-7-7 16:36 | 显示全部楼层    本楼为最佳答案   
fangcheng52013 发表于 2012-7-7 15:22
各位帮忙解释一下,谢谢

看了一下,应该可以,没测试
只是字符串连接。只要不少内容,分几行连接,都可以的。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 14:30 , Processed in 0.570134 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表