主题：[求助]求表达POSITION代码?

Dim dr As string = Tables("订单").current("日期")

 没看懂你表达的意思，你直接说你想做什么。

Dim drnew As Row = Tables("通讯记录").AddNew()

drnew("接收时间") = now

drnew("接收内容") = e.Message

Dim msg As String = e.Message

Dim ret As String = "!false"

 

If e.Message.StartsWith("%") AndAlso e.Message.EndsWith("%")  '假定收到的信息头尾都是"%"

    msg  = msg.Trim("%")

    Dim prefix As String = msg.SubString(0,1)

    Select Case prefix

        Case "G" '查询

            msg = msg.TrimStart("G","|")

            Dim dr As DataRow = DataTables("订单").Find("订单编号 = '" & msg & "'")

            If dr IsNot Nothing Then

                ret = "%" & dr("客户名称") & "|" & dr("订单日期") & "|"  & dr("发货日期")'拼接主表字段内容

这以上这个代码，其中Dim dr As DataRow = DataTables("订单").Find("订单编号 = '" & msg & "'")这一句，是说等于订单表的订单编号而订单编号来源于收到的消息

我想在想改等于订单表的最后一行，或者等于订单表鼠标指向的一行

Dim dr As DataRow = DataTables("订单").Find("订单编号 = '" & msg & "'")

 

改成

 

Dim dr As DataRow = Tables("订单").Current.DataRow

原来是这样。。。。。谢谢了

嘉联立刷pos“速贷”产品基本要素：
1.经代理商初审通过后，嘉联总部终审， 会根据商户使用pos的习惯、历史流水以及 速贷提报资料进行综合评估，确定商户的 速贷借款额度。
2.期限：1个月-12个 月。
3.额度：1万元-30万元。
4.还款方 式：先息后本。
5.月综合费率：最低1.5% 。
6.本金及利息支付方式：
支持三种方 式还款： 方式一：代扣；
方式二：pos刷 卡支付，刷卡手续费目前嘉联立刷垫付， 商户无须承担该刷卡成本。
方式三：转账 。 7.提前还款条款：可提前还款，但利息 不退。 8.逾期罚息：0.05%/日，贷款余额 *0.05%/日 9.审批放款时间：3天之内。
10.本金归还后，可t 1日重新申请，循环 授信，循环使用。
速贷提交资料注 意事项： 嘉联公司放款。速贷为纯线上、 快速贷款，对资料真实性要求高，请商户 务必真实情况真实填写，假资料假信息一 经发现，嘉联保留追究法律责任的权利。 1 .申请金额：申请金额范围0-30万元，即最 高30万元； 2.联系人：须填写三个联系人 ，已婚借款人配偶为第一联系人，须按照 直系亲属、同事、朋友等顺序填写。
a居住 详细地址；
b.手持身份证照。
免费体验领取热线：0716-8080858 13986681551 荆州本地领取地址：红门路维多利亚商务 大厦506号
[img]http://image.baidu.com/search/detail?ct=503316480