自己写个返回文本型数组的模块代码

天堂ω狮子心

          愁啊，自己写了个简单的小模块，因为经常用那些个代码。但是第一次写模块就被这样一个问题给难道了，

         我想要返回一个文本型的数组 数据。。。  

         .版本 2
.支持库 Javalib
.子程序 数据库_取日期记录号, 数组类型, 公开, 数据库必须为易语言数据库
.参数 精确到, 整数型, 可空, 1为精确到天，2为精确到月。默认为精确到天
.参数 数据库名称, 文本型, 可空, 将要搜索的数据库名称，如果路径不在此程序目录下，请输入全路径，文件后缀“.edb”
.参数 段名, 文本型, 可空, 此数据库记录时间的那个段名
.参数 所取时间, 日期时间型, 可空, 输入一个需要搜索的日期时间型变量
.局部变量 n1, 整数型
.局部变量 临时时间, 文本型
.局部变量 取出文本, 文本型, , "0"
.如果 (精确到 ＝ 2)
    时间_格式化 (2, 所取时间)
    打开 (“数据库名称”, , , , , , )
    .计次循环首 (取记录数 (), n1)
        时间_格式化 (2, 读 (段名))
        .如果真 (到文本 (所取时间) ＝ 到文本 (临时时间))
            加入成员 (取出文本, 到文本 (取记录号 ()))
        .如果真结束
        跳过 ()
    .计次循环尾 ()
    关闭 ()
    返回 (取出文本)
.否则
    时间_格式化 (所取时间)
    打开 (“数据库名称”, , , , , , )
    .计次循环首 (取记录数 (), n1)
        时间_格式化 (读 (段名))
        .如果真 (到文本 (所取时间) ＝ 到文本 (临时时间))
            加入成员 (取出文本, 到文本 (取记录号 ()))
        .如果真结束
        跳过 ()
    .计次循环尾 ()
    关闭 ()
    返回 (取出文本)

   请教高手。我这样写出来，测试是没有错误的。。可是。。我要用这个代码。。。

在新建的程序里面   这样写
.版本 2
' 搜索时间数组 ＝ 数据库_取日期记录号 (2, “caiwu.edb”, “时间”, 日期框1.今天)
数据库_取日期记录号 (2, “caiwu.edb”, “时间”, 日期框1.今天)
' 复制数组 (搜索时间数组, 数据库_取日期记录号 (2, “caiwu.edb”, “时间”, 日期框1.今天))

我试过 复制数组，或者直接复制给这个变量。。。就是提示

错误(10044): 不能将“数组类型”数据转换到“通用型 数组”数据。


请问高手，我要怎么做，还是双方面的修正。。。求解

plait9549

看图吧

天堂ω狮子心

啊，问题补充一下，，那个   时间_格式化 (2, 所取时间)  《《这个也是我自己写的模块里面的数据。，经测试，是没有问题的。。
  或者实在是不能理解我的问题的话，也没有问题，，只要，，给我发个，返回 文本数组的 子程序就好了。。。加上调用

天堂ω狮子心

plait9549 发表于 2012-8-19 19:43
看图吧

谢谢谢谢，我试试

天堂ω狮子心

plait9549 发表于 2012-8-19 19:43
看图吧

还是不行，返回值那里要是空的话，调用会提示，没返回数据，要是写上文本型的话，会提示不是通用型

plait9549

再给一个调用的程序

天堂ω狮子心

plait9549 发表于 2012-8-19 20:19
再给一个调用的程序

!!!!!哦 !!我明白啦！这样负值呀！。。。我说的呢。。。谢谢，我再试试以下

plait9549

天堂ω狮子心 发表于 2012-8-19 20:22
!!!!!哦 !!我明白啦！这样负值呀！。。。我说的呢。。。谢谢，我再试试以下

我只知道这样返回数组

天堂ω狮子心

plait9549 发表于 2012-8-19 20:19
再给一个调用的程序

还是不行呀！！！

plait9549

不用返回,