positive: 13价肺炎疫苗属于二类的疫苗接种项目,是自愿、自费接种的,不是一定要打的,但是13价肺炎疫苗有预防肺炎的作用,如果在宝宝身体条件允许、家庭条件也允许的情况下,可以考虑给宝宝注射。宝宝在身体抵抗力差的情况下,很容易被细菌或者病毒感染,导致上呼吸道感染,也有可能会导致肺炎,平时要多给宝宝吃富含蛋白质和维生素的食物,多带宝宝参加户外活动,增强体质。
negative: "各位高手大侠们帮忙看看!!为什么我运行点保存会提示""当前记录集不支持更新.这可能是提供程序的限制,也可能是选定锁定类型的限制""<br>这个是我的程序代码Dim conn As ADODB.Connection<br>Dim sql As String<br>Set conn = New ADODB.Connection<br>conn.ConnectionString = ConnectString<br>conn.Open '连接数据库<br>sql = ""select * from clkc where 材料名称='"" & Trim(txtfields(0).Text) & ""' ""<br>Set rs1 = conn.Execute(sql)<br>If rs1.EOF = True Then '如果没有的话就添加<br>rs1.Close<br>sql = ""select * from clkc""<br>Set rs1 = conn.Execute(sql)<br>rs1.AddNew<br>rs1.Fields(0) = Trim(txtfields(0).Text)<br>For i = 1 To 2<br>If Trim(txtfields(i).Text & """") = """" Then<br>rs1.Fields(i) = Null<br>Else<br>rs1.Fields(i) = Trim(txtfields(i).Text)<br>End If<br>Next i<br>Else<br>rs1.Edit '如果有的话就更新物资库存表中的信息(数量,金额)<br>rs1![重量] = Val(rs1![重量]) + Val(Trim(txtfields(1).Text))<br>rs1.Update<br>rs1.Close<br>End If<br>'保存adodc1的记录集的修改<br>Adodc1.Recordset.UpdateBatch adAffectAll<br>'保存后,设置按钮状态<br>SetButtons True<br>'显示操作信息<br>MsgBox ""保存成功!"", vbExclamation + vbOKOnly, ""材料入库""<br>Exit Sub<br>UpdateErr:<br>MsgBox Err.Description<br>End Sub补充:VB , 数据库(包含打印,安装,报表)<br><img><br><img><br><img><br><img><br><img><br><img><br>请访问www.zzzyk.com 试试<br>部份技术文章来自网络,"