子窗体刷新不足问题

sunredday

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

sunredday

利用条件格式，子窗体只能有三四种色彩，如何获得更多的色彩。

sunredday

听说可以用改变WINDOWS的设置改变当字窗体记录较少时下边的灰黑色背景能否改变颜色，如何该呢？

sunredday

子窗体条件格式的代码是什么？ 应该有的

sunredday

数据表子窗体字段的隐藏和无效问题

sunredday

如何在子窗体里使用VB进行拷贝、1粘贴、剪切等操作？ 子窗体方法多页控件上，按钮也放在多页控件放上。

sunredday

选定子窗体行选定器的VBA代码是什么？ 多谢

sunredday

用于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

用于粘贴  有问题
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

应该使用数组