发布网友 发布时间:2022-04-16 03:24
共4个回答
热心网友 时间:2022-04-16 04:54
按如下方式获得:
如,access库中有以下两张表:
现要将测试表1的数据追加到测试表中,其中测试表1的NAME列为参数,AGE为固定值20,需要select获得。
可用如下语句:
insert into 测试表(name,age) select name,20 from 测试表1追加后的结果:
热心网友 时间:2022-04-16 06:12
给你个思路 将你所需要得到的参数写一个方法 你看看那个报修时间还不一样是用方法得到的 很傻很简单的方法就是将你所需要的每一个参数都写一个方法 然后方法的返回值就是你所需要的参数热心网友 时间:2022-04-16 07:46
多写一点语句,追答你是ACCESS,可以写到事件里
Dim xRst As New ADODB.Recordset
Dim pName As String
dim xPhone as String '假定联系方式是字符型的字段
dim xExpense as Double
xRst.Open "select 住户表.住户姓名,住户表.住户联系方式 from 住户表 where( 住户表.住户所在小区=forms![住户报修登记]!combo3 and 住户所在楼层=forms![住户报修登记]!楼层 and 住户表.住户所在房间号=forms![住户报修登记]!房间号 and 住户表.是否为户主=true)" , CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If xRst.RecordCount > 0 Then
'没有这个住户
Msgbox "没有这个住户 "
else
pname=xrst.fields("住户姓名")
xPhone=xrst.fields("住户联系方式")
endif
xRst.Open "select sum(收费表.收费价格) from 收费表 where( 收费表.报修项目=forms![住户报修登记]!combo9 or 收费表.报修项目=forms![住户报修登记]!combo11 or 收费表.报修项目=forms![住户报修登记]!combo13)", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If xRst.RecordCount > 0 Then
'没有这个住户
Msgbox "没有查找到收费 "
else
xExpense=xrst.fields(0)
endif
with 房屋报修维修表
.AddNew
.Fields("报修时间")=...
.Fields("报修房主姓名")=pName
.Fields("维修费用")= xExpense
....
.Update
end with
热心网友 时间:2022-04-16 09:38
这个可以处理追问具体一点,谢谢了