VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 2003/08/27(Wed) 18:06
投稿者相川
URL
タイトルRe^2: データ構造の配列を引数で渡す方法

返信ありがとうございます。
ソースを抜粋して載せてみました。

引数を受け取ろうとすると落ちるんですよ...


標準モジュール内-------------------------------------------------

定義
Private Type EntaiData
    KCode           As String
    KanaName        As String
    dtSiharai       As String
    Entaikin        As String
    Zante           As String
    Misyuukin       As String
    OkRisoku        As String
    NgRisoku        As String
    Gankin          As String
End Type

Private Prig_EntaiData() As EntaiData

受渡し

Cas_ExcelEdit0750(Prig_EntaiData(LoopCnt)) = False Then

------------------------------------------------------------------------------
違う標準モジュール内-------------------------------------------------
受け取り 部分
ここに遷移した瞬間落ちます。
Public Function Cas_ExcelEdit0750(ByRef Test() As EntaiData) As Boolean

------------------------------------------------------------------------------


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -