Office中国论坛/Access中国论坛

标题: 子窗体刷新不足问题 [打印本页]

作者: sunredday 时间: 2003-7-27 02:18
标题: 子窗体刷新不足问题
子窗体刷新不足问题
子窗体字段较多（30-40 个），结果出新移动横向滚动条时，后边的字段的内容出新与前边字段的内容重叠现象，显然是刷新不够。如何处理才能很自然地掩盖这个问题（及REPAINT 放在哪里，现在的动作是横向移动滚动条）。
另外，当字窗体记录较少是，下边的灰黑色背景能否改变颜色？

作者: sunredday 时间: 2003-7-27 06:32
利用条件格式，子窗体只能有三四种色彩，如何获得更多的色彩。

作者: sunredday 时间: 2003-7-27 20:22
听说可以用改变WINDOWS的设置改变当字窗体记录较少时下边的灰黑色背景能否改变颜色，如何该呢？

作者: sunredday 时间: 2003-7-28 00:58
子窗体条件格式的代码是什么？应该有的

作者: sunredday 时间: 2003-7-28 03:21
数据表子窗体字段的隐藏和无效问题

作者: sunredday 时间: 2003-7-28 19:41
如何在子窗体里使用VB进行拷贝、1粘贴、剪切等操作？子窗体方法多页控件上，按钮也放在多页控件放上。

作者: sunredday 时间: 2003-7-28 21:34
选定子窗体行选定器的VBA代码是什么？多谢

作者: sunredday 时间: 2003-7-29 06:07
用于COPY，用TYPE 定义变量  有问题
On Error Resume Next
Dim rst As DAO.Recordset

Set rst = Me.[11分部分项工程量清单子窗体11].Form.RecordsetClone
rst.Bookmark = Me.[11分部分项工程量清单子窗体11].Form.Bookmark
' 变量. myfield1.预算表序号 = rst.Fields(0)
变量.myfield1.分部编号1 = rst.Fields(1)
变量.myfield1.分部编号2 = rst.Fields(2)
   变量.myfield1.分部编号3 = rst.Fields(3)
   变量.myfield1.分部编号4 = rst.Fields(4)
   变量.myfield1.分部编号5 = rst.Fields(5)
   变量.myfield1.分部编号6 = rst.Fields(6)
   变量.myfield1.分部编号7 = rst.Fields(7)
   变量.myfield1.分部编号8 = rst.Fields(8)
   变量.myfield1.分部编号9 = rst.Fields(9)
   变量.myfield1.分部编号10 = rst.Fields(10)
   变量.myfield1.清单编号1 = rst.Fields(11)
   变量.myfield1.清单编号2 = rst.Fields(12)
变量.myfield1.工料编号1 = rst.Fields(13)
  变量.myfield1.工料编号2 = rst.Fields(14)
变量.myfield1.工料编号3 = rst.Fields(15)
变量.myfield1.工料编号4 = rst.Fields(16)
  变量.myfield1.工料编号5 = rst.Fields(17)
变量.myfield1.工料编号6 = rst.Fields(18)
变量.myfield1.工料编号7 = rst.Fields(19)
变量.myfield1.工料编号8 = rst.Fields(20)
变量.myfield1.工料编号9 = rst.Fields(21)
   变量.myfield1.工料编号10 = rst.Fields(22)
变量.myfield1.序号 = rst.Fields(23)
变量.myfield1.项目编码及定额编号 = rst.Fields(24)
变量.myfield1.项目名称及子目名称 = rst.Fields(25)
变量.myfield1.工作内容及规格型号 = rst.Fields(26)

变量.myfield1.计量单位 = rst.Fields(27)
变量.myfield1.子目含量及定额含量 = rst.Fields(28)

变量.myfield1.工程量计算公式 = rst.Fields(29)
变量.myfield1.工程量 = rst.Fields(30)

   变量.myfield1.人工单价 = rst.Fields(31)
变量.myfield1.人工合计 = rst.Fields(32)
变量.myfield1.材料单价 = rst.Fields(33)
   变量.myfield1.材料合计 = rst.Fields(34)
   变量.myfield1.机械单价 = rst.Fields(35)
变量.myfield1.机械合计 = rst.Fields(36)
变量.myfield1.设备单价 = rst.Fields(37)
变量.myfield1.设备合计 = rst.Fields(38)
   变量.myfield1.主材单价 = rst.Fields(39)
   变量.myfield1.主材合计 = rst.Fields(40)

变量.myfield1.管理费公式 = rst.Fields(41)
   变量.myfield1.管理费 = rst.Fields(42)
   变量.myfield1.管理费合计 = rst.Fields(43)

   变量.myfield1.利润公式 = rst.Fields(44)

   变量.myfield1.利润 = rst.Fields(45)

   变量.myfield1.利润合计 = rst.Fields(46)

   变量.myfield1.调价公式 = rst.Fields(47)
变量.myfield1.调价 = rst.Fields(48)
   变量.myfield1.调价合计 = rst.Fields(49)
变量.myfield1.综合单价 = rst.Fields(50)
   变量.myfield1.合价 = rst.Fields(51)
   变量.myfield1.是否分解 = rst.Fields(52)
变量.myfield1.是否输出 = rst.Fields(53)
   变量.myfield1.是否显示 = rst.Fields(54)
变量.myfield1.特征 = rst.Fields(55)
   变量.myfield1.甲供料 = rst.Fields(56)
   rst.Close
Set rst = Nothing

作者: sunredday 时间: 2003-7-29 06:10
用于粘贴  有问题
On Error Resume Next
Dim rst As DAO.Recordset

Set rst = Me.[11分部分项工程量清单子窗体11].Form.RecordsetClone
rst.Bookmark = Me.[11分部分项工程量清单子窗体11].Form.Bookmark

rst.Edit
' rst.Fields(0) = myfield1.预算表序号
   rst.Fields(1) = myfield1.分部编号1
   rst.Fields(2) = myfield1.分部编号2
rst.Fields(3) = myfield1.分部编号3
   rst.Fields(4) = myfield1.分部编号4
   rst.Fields(5) = myfield1.分部编号5
   rst.Fields(6) = myfield1.分部编号6
rst.Fields(7) = myfield1.分部编号7
   rst.Fields(8) = myfield1.分部编号8
rst.Fields(9) = myfield1.分部编号9
rst.Fields(10) = myfield1.分部编号10
rst.Fields(11) = myfield1.清单编号1
rst.Fields(12) = myfield1.清单编号2
rst.Fields(13) = myfield1.工料编号1
rst.Fields(14) = myfield1.工料编号2
rst.Fields(15) = myfield1.工料编号3
   rst.Fields(16) = myfield1.工料编号4
   rst.Fields(17) = myfield1.工料编号5
   rst.Fields(18) = myfield1.工料编号6
   rst.Fields(19) = myfield1.工料编号7
   rst.Fields(20) = myfield1.工料编号8
   rst.Fields(21) = myfield1.工料编号9
rst.Fields(22) = myfield1.工料编号10
   rst.Fields(23) = myfield1.序号
rst.Fields(24) = myfield1.项目编码及定额编号
  rst.Fields(25) = myfield1.项目名称及子目名称
rst.Fields(26) = myfield1.工作内容及规格型号

   rst.Fields(27) = myfield1.计量单位
   rst.Fields(28) = myfield1.子目含量及定额含量

rst.Fields(29) = myfield1.工程量计算公式
   rst.Fields(30) = myfield1.工程量

rst.Fields(31) = myfield1.人工单价
   rst.Fields(32) = myfield1.人工合计
rst.Fields(33) = myfield1.材料单价
   rst.Fields(34) = myfield1.材料合计
   rst.Fields(35) = myfield1.机械单价
   rst.Fields(36) = myfield1.机械合计
   rst.Fields(37) = myfield1.设备单价
   rst.Fields(38) = myfield1.设备合计
   rst.Fields(39) = myfield1.主材单价
   rst.Fields(40) = myfield1.主材合计

   rst.Fields(41) = myfield1.管理费公式
   rst.Fields(42) = myfield1.管理费
   rst.Fields(43) = myfield1.管理费合计

   rst.Fields(44) = myfield1.利润公式

   rst.Fields(45) = myfield1.利润

rst.Fields(46) = myfield1.利润合计

   rst.Fields(47) = myfield1.调价公式
   rst.Fields(48) = myfield1.调价
   rst.Fields(49) = myfield1.调价合计
   rst.Fields(50) = myfield1.综合单价
   rst.Fields(51) = myfield1.合价
   rst.Fields(52) = myfield1.是否分解
   rst.Fields(53) = myfield1.是否输出
   rst.Fields(54) = myfield1.是否显示
rst.Fields(55) = myfield1.特征
   rst.Fields(56) = myfield1.甲供料
   rst.Update

作者: sunredday 时间: 2003-7-29 20:31
应该使用数组

作者: sunredday 时间: 2003-7-29 22:00
On Error Resume Next
Dim rst As DAO.Recordset
Dim intI As Integer
Dim intA As Long
Dim strA As String

intA = Me.[11分部分项工程量清单子窗体11].Form![预算表序号]
Set rst = CurrentDb.OpenRecordset("11分部分项工程量清单1")
strA = "预算表序号=" & intA & ""

rst.MoveLast
rst.FindFirst strA

rst.Edit
For intI = 1 To 56
rst.Fields(intI) = 变量.myfield(intI)
Next intI
rst.Update
Me.[11分部分项工程量清单子窗体11].Requery

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)