主题：数据简化

Datacolchanged中输入下列代码,在此,我是将第一列做为尺寸的存放列的,在此可以输入:2000*1200*1050*950,类似格式的任何数据

 

If e.DataCol.Name = "第一列" Then '如果更改的是第一列
    If e.DataRow.IsNull("第一列") Then '第一列是否为空
        e.DataRow("规格") = Nothing '如果为空,则清除
        e.DataRow("桶径") = Nothing '如果为空,则清除
        e.DataRow("内宽") = Nothing '如果为空,则清除
        e.DataRow("轴孔") = Nothing '如果为空,则清除
    Else
        Dim Multi As String = e.DataRow("第一列")
        Dim Values() As String
        Values = Multi.split("*")
        e.DataRow("规格") = Values(0)
        e.DataRow("桶径") = Values(1)
        e.DataRow("内宽") = Values(2)
        e.DataRow("轴孔") = Values(3)
    End If
End If

师傅你好：

我想把设计好的表上传给你，不知如何处理，请指教，谢谢！

上传到论坛吧,可以加密码,然后将密码短信发给我就可以了,呵

师傅你好：

是不是要把狐表安装目录文件压缩后，从添加附件再上传附件。

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:foxtable.zip

在管理项目3中铁盘组装

你发的文件不对,你要发你自己的狐表文件给我,直接发那个后缀名为:".Table"的文件就可以了

师傅你好：

不知该文件在哪里找，请师傅提示，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.zip

您注意看一下我下面代码的红色部分,你这部分写错了,按下面代码就可以了

 

If e.DataCol.Name = "规格尺寸" Then '如果更改的是第一列
    If e.DataRow.IsNull("规格尺寸")Then '第一列是否为空
        e.DataRow("规格") = Nothing '如果为空,则清除
        e.DataRow("桶径") = Nothing '如果为空,则清除
        e.DataRow("内宽") = Nothing '如果为空,则清除
        e.DataRow("轴孔") = Nothing '如果为空,则清除
    Else
        Dim Multi As String = e.DataRow("规格尺寸")
        Dim Values() As String
        Values = Multi.split("*")
        e.DataRow("规格") = Values(0)
        e.DataRow("桶径") = Values(1)
        e.DataRow("内宽") = Values(2)
        e.DataRow("轴孔") = Values(3)
    End If
End If