★★★★★★★★数据录入界面的编写问题（做过报表的同行请进）★★★★★★★★(100分)

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #21

下拉列表框/单选框怎么做？

 

G

gmwing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #22

up

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #23

Application.DisplayFormulaBar = False
Application.DisplayFormulaBar = True
Application.CommandBars("Visual Basic").Visible = True
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=77.25, Top:=26.25, Width:=72, Height:=21) _
.Select

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #24

以下的表格怎样通过几张内容不定的表组合到一起，生成这种界面？
┏━━━━━┳━━━━━━┳━━━━━━━┳━━━━━━━┳━━━━━┓
┃　项目　　┃　提高　　　┃　下降 　　┃　.... 　　　 ┃.... 　　┃
┣━━━━━╋━━━━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　产值　　┃　（填写）　┃　（填写） 　┃　　　　　　　┃　　　　　┃
┣━━━━━╋━━━━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　成本　　┃　（填写）　┃　（填写） 　┃　　　　　　　┃　　　　　┃
┣━━━━━╋━━┳━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　　　　 ┃提高┃下降　┃　不变　　　　┃　　　　　　　┃　　　　　┃
┃　收　　 ┣━━╋━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　入　　 ┃（填┃（填写┃　　（填写）　┃　　　　　　　┃　　　　　┃
┋　　　　 ┋写）┋　）　┋ [下拉列表}　┋　　　　　　　┋　　　　　┋
┗━━━━━┻━━┻━━━┻━━━━━━━┻━━━━━━━┻━━━━━┛

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #25

还有，录入的数据怎样存回原来的数据库？

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #26

變量:=xlSheet.Range['A1'].cells.FormulaR1C1;

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #27

数据取自多张表，怎样和原来的字段一一对应？

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #28

你可以在每列的標題上註明阿,讀入的時候就以標題為準

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #29

关键一点列是不规则的，这些数据都是拼在一起的，无法对应

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #30

还有表格是程序画的，不是用户来画的，我应该怎么画这个表格

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #31

什麼叫拼在一起阿,你是指相加嗎.
但是再不規則的表,還是能找到規律的,
我做過一張工作日報表,光是在Excel中把他畫出來就花了我半天時間呢.

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #32

比如以下这张表，通过读两张表的内容，怎么得到这种录入界面？
┏━━━━━┳━━━━━━┳━━━━━━━┳━━━━━━━┳━━━━━┓
┃　项目　　┃　提高　　　┃　下降 　　┃　.... 　　　 ┃.... 　　┃
┣━━━━━╋━━━━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　产值　　┃　（填写）　┃　（填写） 　┃　　　　　　　┃　　　　　┃
┣━━━━━╋━━━━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　成本　　┃　（填写）　┃　（填写） 　┃　　　　　　　┃　　　　　┃
┣━━━━━╋━━┳━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　　　　 ┃提高┃下降　┃　不变　　　　┃　　　　　　　┃　　　　　┃
┃　收　　 ┣━━╋━━━╋━━━━━━━╋━━━━━━━╋━━━━━┫
┃　入　　 ┃（填┃（填写┃　　（填写）　┃　　　　　　　┃　　　　　┃
┋　　　　 ┋写）┋　）　┋ [下拉列表}　┋　　　　　　　┋　　　　　┋
┗━━━━━┻━━┻━━━┻━━━━━━━┻━━━━━━━┻━━━━━┛

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #33

參照Excel的宏就可以畫出很飄亮的表格來

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #34

xlSheet.Range['A1'].cells.FormulaR1C1:='項目';
xlSheet.Range['B1:C1'].MergeCells:=True;
xlSheet.Range['B1:C1'].cells.FormulaR1C1:='提高';
xlSheet.Range['D1'].cells.FormulaR1C1:='下降';
.....

xlSheet.Range['A4:A5'].HorizontalAlignment:=xlCenter;
xlSheet.Range['A4:A5'].MergeCells:=True;
xlSheet.Range['A4:A5'].cells.FormulaR1C1:='收入';

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #35

但是“收入”的列数或其它行的列是不固定的，有多的有少的，怎么确定合并几行呢？
比如“收入”的列值有50个，怎么办，这样的需求是真的，因为这种不确定因素太多了。
现在我手上有一张表就是有20多个列，分五行打印出来的表（属于多选三，打勾选择）
还有，合并了行再写数据库应该没问题吧？非常感谢mild

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #36

还有，表格边框一定要对齐，表格要均匀等等

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #37

不確定的合併行列可以留到最後一個寫阿,
你可以設置一個變量來紀錄他需要合併的列阿.

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #38

你要先在Excel裡面錄製宏,然後手動做好一個Excel的表格,
Alt+F11查看宏代碼,參照他的寫法,撰寫成Delphi的格式

 

C

cg1120

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #39

怎么做到均匀显示：（

 

M

mild

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #40

我不太明白你的均勻顯示是什麼意思