Foxtable(狐表)用户栏目专家坐堂 → 合并数据如何去掉数据前的编号


  共有4740人关注过本帖树形打印复制链接

主题:合并数据如何去掉数据前的编号

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110766 积分:563762 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/28 11:24:00 [显示全部帖子]

For n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("测试1").Find("编号 = '" & bh &"'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr =  DataTables("测试1").AddNew()
    End If
dr("编号") = Sheet(n,0).Value
dim s as string = Sheet(n,1).Value
for i as integer = 0 to s.length - 1
if Char.IsDigit(s(i)) then continue for
dr("标签") = s.substring(i)
exit for
next
Next

 回到顶部