SQL102 = Nz(Me.Textdate.Value)
For i = 1 To SQL104
StrSQL1 = " INSERT INTO 出勤管理 ( 日期 ) " _
& " #" & SQL102 & "# AS 日期, "_
& " FROM 二级表 "
DoCmd.RunSQL StrSQL1
SQL102 = SQL102 + 1
Next
别人写的程勋 我在看代码的时候SQL102 SQL104 定义的是String
SQL102从 Textdate文本框获得日期 格式“2017/6/27”
SQL104 是从文本框获得的出勤天数
不太懂VB 真的能这么写么
尤其是日期加1 太神奇了把0.0