設(shè)為首頁收藏本站Access中國

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

返回列表 發(fā)新帖
樓主: harsonliao
打印 上一主題 下一主題

剛寫完的東東 [銷售統(tǒng)計分析系統(tǒng) V1.0 ]

[復(fù)制鏈接]
11#
發(fā)表于 2002-10-28 03:48:00 | 只看該作者
對你的程序非常感興趣,能否獲得源碼?

cg1sh@hotmail.com
12#
 樓主| 發(fā)表于 2002-11-4 02:16:00 | 只看該作者
提示: 作者被禁止或刪除 內(nèi)容自動屏蔽
13#
發(fā)表于 2002-11-9 00:35:00 | 只看該作者
能給我一份嗎,我目前想做一個ACCESS+VB的程序,希望有幫助。謝謝。
ilovevb@elong.com
14#
發(fā)表于 2005-12-19 19:20:00 | 只看該作者
good
15#
發(fā)表于 2005-12-25 06:02:00 | 只看該作者
鏈接地址出現(xiàn)錯誤了
16#
發(fā)表于 2006-3-2 16:49:00 | 只看該作者
鏈接地址出現(xiàn)錯誤了
17#
發(fā)表于 2006-3-12 23:24:00 | 只看該作者
KKB
18#
發(fā)表于 2010-7-6 17:59:12 | 只看該作者
咋下載啊
19#
發(fā)表于 2013-11-15 12:19:16 | 只看該作者
鏈接地址出現(xiàn)錯誤了
20#
發(fā)表于 2014-4-28 16:26:06 | 只看該作者
Public Sub SetParentFormctrls(ByVal frm As Form)     '功能:將子窗體控件數(shù)據(jù)賦值給主窗體對應(yīng)控件     Dim ctrls As Controls     Dim Ctrl As Control     On Error Resume Next     Set ctrls = frm.Parent.Controls     For Each Ctrl In frm.Controls         If Ctrl.ControlType <> acLabel Then             ctrls(Ctrl.Name).Value = Ctrl.Value         End If     Next End SubPublic Sub SetParentFormctrls(ByVal frm As Form)     '功能:將子窗體控件數(shù)據(jù)賦值給主窗體對應(yīng)控件     Dim ctrls As Controls     Dim Ctrl As Control     On Error Resume Next     Set ctrls = frm.Parent.Controls     For Each Ctrl In frm.Controls         If Ctrl.ControlType <> acLabel Then             ctrls(Ctrl.Name).Value = Ctrl.Value         End If     Next End Sub
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則

QQ|站長郵箱|小黑屋|手機版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2025-7-17 04:55 , Processed in 0.089162 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表