[已解决]VBA80集第74集一段代码看不懂

fangcheng52013 · 发表于 2012-7-7 14:24

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
arr = Range("c8:g" & Range("f18").End(xlUp).Row) 这么句怎么解释啊，看不懂

最佳答案

月排行榜 / 总排行榜

zjdh

2012-7-7 18:46