If IsNull(Me![入库时间]) = True Then
'弹出提示“铝材类型”文本框不可以为空信息
MsgBox "请输入“入库时间”，它不可以为空!", vbOKOnly, "输入“入库时间”"
'把光标置于“铝材类型”文本框内
Me![入库时间].SetFocus
Else
'为保存计划“查询语句”字符变量赋值
STemp = "INSERT INTO 保护膜表"
STemp = STemp & "( 序号,入库时间,入库单号,供应商,型号,粘度,"
STemp = STemp & "保护膜,品名,厚度,宽度,长度,重量,"
STemp = STemp & "库号,备注,剩余重量)"
STemp = STemp & "VALUES ( ''&" & Rs.RecordCount + 1 & ","
STemp = STemp & "'" & Me![入库时间] & "','" & Me![入库单号] & "',"
STemp = STemp & "'" & Me![供应商] & "','" & Me![型号] & "',"
STemp = STemp & "'" & Me![粘度] & "','" & Me![保护膜] & "',"
STemp = STemp & "'" & Me![品名] & "','" & Me![厚度] & "',"
STemp = STemp & "'" & Me![宽度] & "','" & Me![长度] & "',"
STemp = STemp & "'" & Me![重量] & "','" & Me![库号] & "',"
STemp = STemp & "'" & Me![备注] & "','" & Me![剩余重量] & "')"
剩余重量在那里添加语句 让 剩余重量 = 重量 呢？我添加都是出错，希望大侠指导下。。谢谢啦！~