以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表格式问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93640)
--  作者：rjh4078
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2016/12/3 8:50:00
--  
是否正确的依据是什么，和上面的格式一致？

用GetColVisibleWidth取出来比较
--  作者：rjh4078
--  发布时间：2016/12/4 14:29:00
--  
 我的意思就是判断这个格式是否合法 比如正确的格式是 列名1|列宽1|列名2|列宽2     现在用户设成了 列名1|列名2|列宽1|列宽2 程序能在这个格式生效之前提示用户
--  作者：有点色
--  发布时间：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