- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求表达POSITION代码? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83332)
-- 发布时间：2016/4/6 16:52:00
-- [求助]求表达POSITION代码?
Dim dr As string = Tables("订单").current("日期")
-- 发布时间：2016/4/6 16:54:00
--
没看懂你表达的意思，你直接说你想做什么。
-- 发布时间：2016/4/6 17:04:00
--
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 & "\'")这一句，是说等于订单表的订单编号而订单编号来源于收到的消息
我想在想改等于订单表的最后一行，或者等于订单表鼠标指向的一行
-- 发布时间：2016/4/6 17:07:00
--
Dim dr As DataRow = DataTables("订单").Find("订单编号 = \'" & msg & "\'")
改成
Dim dr As DataRow = Tables("订单").Current.DataRow
-- 发布时间：2016/4/6 17:19:00
--
原来是这样。。。。。谢谢了
-- 发布时间：2016/4/6 18:25:00
-- 嘉联立刷免费领取，还可以申请贷款拉！
嘉联立刷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