- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 自动更新 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191772)
-- 发布时间：2024/5/9 9:24:00
-- 自动更新
同一门店poi有2台机器，只能更新一行，请老师指教
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:充电宝.zip |
Dim nms() As String = {"门店poi", "省份", "城市", "区县", "地址"}
Dim t As Table = e.Form.controls("Table1").Table
For n As Integer = 1 To t.Rows.Count - 1
Dim dr As DataRow = DataTables("设备进店").Find("门店poi = \'" & t.Rows(n)("门店poi") & "\'")
If dr IsNot Nothing Then
For Each c As String In nms
dr(c) = t.Rows(n)(c)
Next
End If
Nex
-- 发布时间：2024/5/9 10:07:00
--
怎么测试？哪个门店poi？
-- 发布时间：2024/5/9 10:53:00
--
门店有2台机器的，比如 门店poi： 1227105030，只有一行输入省份
-- 发布时间：2024/5/9 11:00:00
--
使用find，不管怎么查肯定都返回同一行呀。改为select
-- 发布时间：2024/5/9 11:52:00
--
老师帮看看错在哪
Dim t As Table = e.Form.controls("Table1").Table
Dim Filter As String = "门店poi = \'" & t.Current("门店poi") & "\'"
Dim drs As List(Of DataRow) = DataTables("设备进店").Select(Filter)
For Each dr As DataRow In drs
dr("省份") = t.Current("省份")
Next
-- 发布时间：2024/5/9 13:29:00
--
判断一下current是否有值 ：http://www.foxtable.com/webhelp/topics/0445.htm
-- 发布时间：2024/5/9 18:56:00
--
老师请指教
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:充电宝.zip |
-- 发布时间：2024/5/9 21:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:充电宝.zip |
-- 发布时间：2024/5/9 21:48:00
--
谢谢