需求:
1、棚号、工人、项目都是通过下来菜单选取。2、选择不同的项目时,在不同的区域编辑,详情见附件。3、选择项目时,项目的单价要重项目表里取显示在界面上。哪位高人能指点下我该怎么设计数据结构及代码

解决方案 »

  1.   

    code:
    Private Sub Combo3_Click()
     if trim(combo3.text)='a' then
    '''''一区域''''''''''''''''''
    text1.Enabled=true '打开
    text2.Enabled=true
    text3.Enabled=true
    ''''''二区域''''''''''''''
    text4.Enabled=false 
    text5.Enabled=false
    text6.Enabled=false
    text7.Enabled=false
    text8.Enabled=false
    text9.Enabled=false
    text9.Enabled=false
    text10.Enabled=false
    text11.Enabled=false
    text12.Enabled=false
    ''''''三区域''''''''''''''
    text13.Enabled=false
    ....
    '''''''四区域''''''''''''
    ......
    end if
    end sub''''''''''''''''''''''''''''''''''''''
    数据结构和代码要看您想使用什么数据库.
      

  2.   

    code:
    Private Sub Combo3_Click()
     if trim(combo3.text)='a' then
    '''''一区域''''''''''''''''''
    text1.Enabled=true '打开
    text2.Enabled=true
    text3.Enabled=true
    ''''''二区域''''''''''''''
    text4.Enabled=false 
    text5.Enabled=false
    text6.Enabled=false
    text7.Enabled=false
    text8.Enabled=false
    text9.Enabled=false
    text9.Enabled=false
    text10.Enabled=false
    text11.Enabled=false
    text12.Enabled=false
    ''''''三区域''''''''''''''
    text13.Enabled=false
    ....
    '''''''四区域''''''''''''
    ......
    end if
    end sub''''''''''''''''''''''''''''''''''''''
    数据结构和代码要看您想使用什么数据库.
      

  3.   

    (3)在combo3的afterupdate事件过程里,根据combo3的当前值,
              3.1)enable相应区域,disable其他区域
              3.2)改变单价的当前值
      

  4.   

    VB我还是刚刚初学,既然每个区域建一个表,我怎么根据combo3的当前值来往不同的表插入数据,能否给个例子让我学习下,谢谢~~
      

  5.   

    实际上不是“根据combo3的当前值来往不同的表插入数据”而是“根据combo3的当前值来从不同的表中读出数据并显示在窗体上”另外,不同项目的单价是不同的,相同项目的单价是不是都是相同的?如果都是相同的,你就没必要读数据,直接在窗体上不同区域把各项目的单价写死就行了
      

  6.   

    这是录入界面,选择不同的项目后,再补充信息要保存到每个区域对应的表去的。目前表结构设计如下:基础表:棚号、工人、项目各建一张表业务表:一张主表、五张附表主表字段:主键ID、棚号、工人编码、项目编码、日期附表:每个区域各建一张附表,如:区域一表字段:主表的外键ID、单价、计件数、金额(其中单价是要从项目表中取过来保存下来)代码该如何处理?要用到哪些方法、事件等,请指教
      

  7.   

    附表里不需要单价字段。
    你不就5种单价么?你就直接写在屏幕上就行了,放5个label,caption写成相应的单价。