ess数据库嘛??有实例 代码给你
Public zf1 As Integer Private Sub cj98_Click() Dim bh Data2.RecordSource = "98年成绩" Data2.Refresh bh = Data1.Recordset.Fields("编号") Data2.Recordset.FindFirst ("编号" = bh) Call zf Label13 = zf1 End Sub
Private Sub cj99_Click() Dim bh As Integer Data2.RecordSource = "99年成绩" Data2.Refresh bh = Data1.Recordset.Fields("编号") Data2.Recordset.FindFirst ("编号" = bh) Call zf Label13 = zf1 End Sub
Private Sub Data1_Reposition() Dim bh As Integer bh = Data1.Recordset.Fields("编号") Data2.Recordset.MoveFirst Do While Data2.Recordset.EOF = False If Data2.Recordset.Fields("编号") = bh Then Exit Do Else Data2.Recordset.MoveNext End If Loop Call zf Label13 = zf1 End Sub
Private Sub Z1_Click() Dim bh Data1.DatabaseName = "C:Documents and SettingsAdministrator桌面db2.mdb" Data1.Refresh Data2.DatabaseName = "C:Documents and SettingsAdministrator桌面db2.mdb" Data2.Refresh bh = Data1.Recordset.Fields("编号") Data2.Recordset.FindFirst ("编号" = bh) Call zf Label13 = zf1 End Sub Sub zf() zf1 = Data2.Recordset.Fields("微机原理") + Data2.Recordset.Fields("OFFICE使用") + Data2.Recordset.Fields("五笔字型打字") + Data2.Recordset.Fields("VB编程") End Sub
digital-vm在日本东京机房当前提供1Gbps带宽、2Gbps带宽、10Gbps带宽接入的独立服务器,每个月自带10T免费流量,一个独立IPv4。支持额外购买流量:20T-$30/月、50T-$150/月、100T-$270美元/月;也支持额外购买IPv4,/29-$5/月、/28-$13/月。独立从下单开始一般24小时内可以上架。官方网站:https://digital-vm.com/de...
香港ctg云服务器香港ctg云服务器官网链接 点击进入妮妮云官网优惠活动 香港CTG云服务器地区CPU内存硬盘带宽IP价格购买地址香港1核1G20G3M5个19元/月点击购买香港2核2G30G5M10个40元/月点击购买香港2核2G40G5M20个450元/月点击购买香港4核4G50G6M30个80元/月点击购买香...
RAKsmart发布了新年钜惠活动,即日起到2月28日,商家每天推出限量服务器秒杀,美国服务器每月30美元起,新上了韩国服务器、GPU服务器、香港/日本/美国常规+站群服务器、1-10Gbps不限流量大带宽服务器等大量库存;VPS主机全场提供7折优惠码,同时针对部分特惠套餐无码直购每月仅1.99美元,支持使用PayPal或者支付宝等方式付款,有中英文网页及客服支持。爆款秒杀10台/天可选精品网/大...