文本分割导入数据库提示“数组成员引用下标超出定义范围”，请大侠们看看哪里有问题。

丁丁kLaRns

.版本 2
.子程序 _按钮1_被单击
.局部变量 临时数组, 文本型, , "0"
.局部变量 数组, 文本型, , "23"
.局部变量 文本, 文本型
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 SQL语句, 文本型

.如果 (编辑框1.内容 ＝ “”)
    信息框 (“请选择需导入的文件”, 0, )
.否则
.如果结束
外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\db.mdb”, , , , )  ' 打开数据库
文本 ＝ 到文本 (读入文件 (编辑框1.内容))
数组 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (数组), i)
    临时数组 ＝ 分割文本 (数组 [i], “|”, )
    SQL语句 ＝ “insert into 交易历史 (交易日期,客户行,交易行,客户号,客户名,客户类型,客户证件号,客户证件类型，客户国籍，交易货币，交易金额，等值美元金额，交易码，外部系统号，交易流水号，本系统序号，账号，交易柜员号，借贷方向，交易对手名称，交易对手账户，对方金融机构名称，支付工具类型) values ('” ＋ 临时数组 [1] ＋ “','” ＋ 临时数组 [2] ＋ “','” ＋ 临时数组 [3] ＋ “','” ＋ 临时数组 [4] ＋ “','” ＋ 临时数组 [5] ＋ “','” ＋ 临时数组 [6] ＋ “','” ＋ 临时数组 [7] ＋ “','” ＋ 临时数组 [8] ＋ “'，'” ＋ 临时数组 [9] ＋ “''” ＋ 临时数组 [10] ＋ “' ，'” ＋ 临时数组 [11] ＋ “'，'” ＋ 临时数组 [12] ＋ “'，'” ＋ 临时数组 [13] ＋ “'，'” ＋ 临时数组 [14] ＋ “'，'” ＋ 临时数组 [15] ＋ “'，'” ＋ 临时数组 [16] ＋ “'，'” ＋ 临时数组 [17] ＋ “'，'” ＋ 临时数组 [18] ＋ “'，'” ＋ 临时数组 [19] ＋ “'，'” ＋ 临时数组 [20] ＋ “'，'” ＋ 临时数组 [21] ＋ “'，'” ＋ 临时数组 [22] ＋ “'，'” ＋ 临时数组 [23] ＋ “')”
    .如果 (外部数据库1.执行 (SQL语句, ))
    .否则
    .如果结束
.计次循环尾 ()
信息框 (“导入成功”, 0, )

深思

临时数组 ＝ 分割文本 (数组 , “|”, )

这行代码前面加

重定义数组 (临时数组, 假, 取数组成员数(数组))

丁丁kLaRns

在线等大侠们的指导！

锦绣明天

你默认是分割出来的数组符合你后面的调用要求，如果分割的数组不符合就会超出数组下标，你加个判断来判定分割是否成功。

丁丁kLaRns

锦绣明天 发表于 2012-3-15 10:56
你默认是分割出来的数组符合你后面的调用要求，如果分割的数组不符合就会超出数组下标，你加个判断来判定分 ...

该怎么写呢？
我是数据库新手，烦请代劳！

小马过河

局部变量 临时数组, 文本型, , "0"
.局部变量 数组, 文本型, , "23"

你两个数组搞混了     改成

局部变量 临时数组, 文本型, , "23"
.局部变量 数组, 文本型, , "0"

丁丁kLaRns

小马过河 发表于 2012-3-15 11:05
局部变量 临时数组, 文本型, , "0"
.局部变量 数组, 文本型, , "23"

改了，还报同样的错

小马过河

丁丁kLaRns 发表于 2012-3-15 11:07
改了，还报同样的错

那我建议你建个自定义数据类型，那样不易出错

丁丁kLaRns

小马过河 发表于 2012-3-15 11:10
那我建议你建个自定义数据类型，那样不易出错

怎么建哈~？

丁丁kLaRns

楼上的大侠们能具体说明一下么？