如何拆分列

boy1

这句不懂？给解释一下，谢谢。

If IsNull(rs.Fields(rs.Fields.Count - 1))

Henry D. Sy

rs.Fields.Count       'rs记录集的字段数量
rs.Fields.Count - 1  '表示最后一个字段的索引，因为字段的索引是从0开始起算的
rs.Fields(rs.Fields.Count - 1)  ’表示最后一个字段值
IsNull(aaa)                 '判断aaa是不是为空
那么整句就是
如果rs记录集的最后一个字段为空的话，就...................

boy1

1.Me.b.Form.RecordSource = "select * from b where " & strWhere    什么意思？还有& strWhere ？
Me.b.Form.RecordSource = "select * from b  " & strWhere       什么意思？是把b表的内容赋值给b控件吗？
   差一个where有什么区别？

2.dtmArray() = Split(Replace(strTemp, ".", "-"), "/")
ubound（）查看定义应是取数组内的哪一维的最大可用下标？
UBound(dtmArray) 这个函数是怎么运行的？不明白

3.For I = 0 To UBound(dtmArray)    With rst 什么意思？还有with是个函数吗？退出用end with。

for <控制变量>:=<表达式1> to <表达式2> do <语句>;这是一个for语句的一般格式，请问我们这段代码为什么没有do呢？
还是For...Next的语句？这是for语句的什么格式？
4. .Update与rs.update，.addnew与rs.addnew相同是吗?
5.原数据表的倒数第二列，需要Replace(****, ".", "-"),该语句如何加到代码里？加到代码哪一行？还有对应的语句吗？

[ 本帖最后由 boy1 于 2008-12-16 11:15 编辑 ]

Henry D. Sy

问题1  strWhere 这里是条件字符串
          等值于 DateDiff('d', Date(), 付款日期)<= " & Me.签约时间开始 & " and DateDiff('d', Date(), 付款日期)>=0
          也就是
          Me.b.Form.RecordSource = "select * from b where " & strWhere
          等值与
          Me.b.Form.RecordSource = "select * from b where DateDiff('d', Date(), 付款日期)<= " & Me.签约时间开始 & " and DateDiff('d', Date(), 付款日期)>=0"

问题2，3，4 在帮助上都写得很清楚，请按f1查看
问题5 倒数第二列的索引===rs.Fields.Count - 2
         那么就是
         Replace(rs.Fields(rs.Fields.Count - 2), ".", "-")

[ 本帖最后由 Henry D. Sy 于 2008-12-16 11:45 编辑 ]

boy1

感谢感谢！！[:28]

boy1

1.我把a表换成了工作中的一张表，但不知什么原因出错。            

2.倒数第二列需要转换格式Replace(rs.Fields(rs.Fields.Count - 2), ".", "-")   

3.在这个表上如何设置一个模糊搜索。
                                                     
本想拿版主的例子改改套用，可是水平实在太差。请版主再辛苦一下。

[ 本帖最后由 boy1 于 2008-12-16 15:20 编辑 ]

Henry D. Sy

dddddd

boy1

好啊。。我也顶，说一个字顶。说两个字，谢谢。啊[:32]

boy1

[ 本帖最后由 boy1 于 2008-12-16 22:07 编辑 ]

Henry D. Sy

数据表的第三条记录的最后一个字段，付款日期的字段值有误，多了一小点