positive: 13价肺炎疫苗是妈妈群里经常讨论的话题。<br>先为新妈妈们科普一下<br>它是预防肺炎链球菌感染的疫苗,13价是指包括血清型1、3、4、5、6A、6B、7F、9V、14、18C、19A、19F和23F共13种。<br>肺炎链球菌是引起肺炎和上呼吸道感染的最常见病因,还可能会引发中耳炎、脑膜炎等。<br>肺炎球菌分布广泛,传染性强,可以通过咳嗽、喷嚏、说话排出的飞沫传播,也可以通过带菌者的污染物,如痰、鼻涕、唾液等传播。肺炎疫苗通常推荐2岁以内儿童以及老年人接种,因为这两类人群致病率和致死率较高。<br>WHO已将肺炎球菌性疾病列为需“极高度优先”使用疫苗预防的疾病。
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>部份技术文章来自网络,"