Foxtable(狐表)用户栏目专家坐堂 → 表格式问题


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

主题:表格式问题

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3361 积分:24808 威望:0 精华:0 注册:2012/3/26 21:47:00
表格式问题  发帖心情 Post By:2016/12/2 20:45:00 [只看该作者]

 让用户自定义表格式 比如 ”库房|80|工单号|100|产品编号|70|产品名称|232|产品类别|80|产品规格|80|订单数量|80|本次入库数量|70|单位|50|库位|80|销售订单号|100|客户名称|108|备注|80“
如何判断这个表格式是否正确 
[此贴子已经被作者于2016/12/2 20:46:59编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110594 积分:562866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/3 8:50:00 [只看该作者]

是否正确的依据是什么,和上面的格式一致?

GetColVisibleWidth取出来比较

 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3361 积分:24808 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2016/12/4 14:29:00 [只看该作者]

 我的意思就是判断这个格式是否合法 比如正确的格式是 列名1|列宽1|列名2|列宽2     现在用户设成了 列名1|列名2|列宽1|列宽2 程序能在这个格式生效之前提示用户

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/4 17:07:00 [只看该作者]

 根据逻辑呗。

 

Dim str As String = "库房|80A|工单号|100|产品编号|70|产品名称|232"
Dim ary() As String = str.Split("|")
If ary.Length Mod 2 = 1 Then
    msgbox("格式错误")
Else
    For i As Integer = 0 To ary.length-1
        If i Mod 2 = 1 Then
            Dim d As Integer
            If Integer.TryParse(ary(i), d) = False Then
                msgbox("格式错误:" & ary(i))
                Exit For
            End If
        Else
            '对列名判断
        End If
    Next
End If


 回到顶部