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 & "'")这一句,是说等于订单表的订单编号而订单编号来源于收到的消息
我想在想改等于订单表的最后一行,或者等于订单表鼠标指向的一行