Foxtable(狐表) → 用户栏目 → 专家坐堂 → 颜色和尺码不固定


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

主题：颜色和尺码不固定
帅哥哟，离线，有人找我吗？
yetle
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/8/4 15:11:00 [只看该作者]

实现动态列的列名称和列标题分开设置：
颜色部分，列名称为颜色+序号自动生成，列标题取CheckedComboBox1的值
尺码部分，列名称为尺码+序号自动生成，列标题取CheckedComboBox2的值

如：
列名称：颜色1，颜色2，尺码1，尺码2
列标题：宝蓝色，火焰色，大码，加大码
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106464 积分：541467 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/4 15:16:00 [只看该作者]

这个意思？
For Index As Integer = 0 To Values.Length - 1
        '' Output.Show(Values(Index))
        dt.datacols.Add("颜色" & Index, Gettype(Integer),"",Values(Index)) ''从textbox中获取数字集合并生成新列
        
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/8/4 15:21:00 [只看该作者]

提示：未申明index
[此贴子已经被作者于2018/8/4 15:21:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106464 积分：541467 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/4 15:23:00 [只看该作者]

肯定不是12楼代码的问题

 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/8/4 15:26:00 [只看该作者]

1
[此贴子已经被作者于2018/8/4 15:26:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/8/4 16:11:00 [只看该作者]

提示：列“颜色2”不属于表 大货用量表_Table2。

For Index As Integer = 0 To Values.Length - 1
        '' Output.Show(Values(Index))
        dt.datacols.Add("颜色" & Index, Gettype(Integer),"",Values(Index)) ''从textbox中获取数字集合并生成新列
        
    Next

这里生成的第一列是列名称是：颜色1，第二列不是颜色2？
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/8/4 17:48:00 [只看该作者]


生成临时表按钮代码：
Dim dt As DataTable=Tables("大货用量表_table2").DataTable
Tables("大货用量表_table2").StopRedraw
For i As Integer=1 To 9
    Dim s As String="第" & CLNum(i) & "列"
    If dt.DataCols.contains(s) Then
        dt.DataCols.delete(s)
    End If
Next
If dt.DataCols.contains("第十列") Then
    dt.DataCols.delete("第十列")
End If
''删除掉默认的列

Dim Multi As String = e.Form.Controls("CheckedComboBox1").value 
Dim Multi1 As String = e.Form.Controls("CheckedComboBox2").value
Dim Values() As String
Dim Values1() As String
Values = Multi.split(",")
Values1 = Multi1.split(",")
If Values.Length>0 And Values1.Length>0 Then
    dt.datacols.Add("物料基本信息_序号", Gettype(String),25)
    dt.datacols.Add("物料基本信息_物料大类", Gettype(String),40)
    dt.datacols.Add("物料基本信息_客供", Gettype(String),30)
    dt.datacols.Add("物料基本信息_物料名称", Gettype(String),200)
    dt.datacols.Add("物料基本信息_物料辅助说明", Gettype(String),50)
    dt.datacols.Add("物料基本信息_部位及用途", Gettype(String),100)
    dt.datacols.Add("物料基本信息_布封", Gettype(String),50)
    dt.datacols.Add("物料基本信息_克重", Gettype(String),50)
    dt.datacols.Add("物料基本信息_单位", Gettype(String),25)
    dt.datacols.Add("物料基本信息_版规格配色要求", Gettype(String),150)
    dt.datacols.Add("物料基本信息_不分色", Gettype(String),40)
    dt.datacols.Add("物料基本信息_适用颜色", Gettype(String),80)
    dt.datacols.Add("物料基本信息_同色", Gettype(String),25)
    dt.datacols.Add("物料基本信息_同量", Gettype(String),25)
    dt.datacols.Add("物料基本信息_分码", Gettype(String),25)
    dt.datacols.Add("物料基本信息_适用尺码", Gettype(String),100)
    dt.datacols.Add("物料基本信息_物料编码", Gettype(String),120)
    dt.datacols.Add("用量信息_待定", Gettype(String),25)
    dt.datacols.Add("用量信息_上级", Gettype(String),30)
    dt.datacols.Add("用量信息_领料部门", Gettype(String),40)
    dt.datacols.Add("用量信息_变更日期", Gettype(String),100)
    dt.datacols.Add("用量信息_下级", Gettype(String),30)
    dt.datacols.Add("供应商属性_供应商名称", Gettype(String),80)
    dt.datacols.Add("供应商属性_转换率", Gettype(String),50)
    dt.datacols.Add("供应商属性_采购单位", Gettype(String),25)
    dt.datacols.Add("供应商属性_成份", Gettype(String),100)
    dt.datacols.Add("款号", Gettype(String),100)

    For Index As Integer = 0 To Values.Length - 1
         ' Output.Show(Values(Index))
        dt.datacols.Add("颜色" & Index, Gettype(Integer),"",Values(Index)) ''从textbox中获取数字集合并生成新列
        Output.Show(Values(Index))
    Next
    
    For Index1 As Integer = 0 To Values1.Length - 1
        '' Output.Show(Values(Index))
        dt.datacols.Add("尺码" & Index1, Gettype(Integer),"",Values1(Index1)) ''从textbox中获取数字集合并生成新列
        Output.Show(Values(Index1))
    Next

    dt.datacols.Add("小计", Gettype(Integer),"","小计") ''增加小计列,这里还需要去datacolchanged事件中增加动态计算功能
    dt.AllowEdit=True ''允许编辑该表
    Tables("大货用量表_table2").Cols("小计").AllowEdit=False ''锁定小计列不允许编辑
    Tables("大货用量表_table2").Cols("物料基本信息_序号").Width = 25
    Tables("大货用量表_table2").Cols("物料基本信息_物料大类").Width = 40
    Tables("大货用量表_table2").Cols("物料基本信息_客供").Width = 30
    Tables("大货用量表_table2").Cols("物料基本信息_物料名称").Width = 200
    Tables("大货用量表_table2").Cols("物料基本信息_物料辅助说明").Width = 50
    Tables("大货用量表_table2").Cols("物料基本信息_部位及用途").Width = 100
    Tables("大货用量表_table2").Cols("物料基本信息_布封").Width = 50
    Tables("大货用量表_table2").Cols("物料基本信息_克重").Width = 50
    Tables("大货用量表_table2").Cols("物料基本信息_布封").Width = 50
    Tables("大货用量表_table2").Cols("物料基本信息_单位").Width = 25
    Tables("大货用量表_table2").Cols("物料基本信息_版规格配色要求").Width = 120
    Tables("大货用量表_table2").Cols("物料基本信息_不分色").Width = 40
    Tables("大货用量表_table2").Cols("物料基本信息_适用颜色").Width = 80
    Tables("大货用量表_table2").Cols("物料基本信息_同色").Width = 25
    Tables("大货用量表_table2").Cols("物料基本信息_同量").Width = 25
    Tables("大货用量表_table2").Cols("物料基本信息_分码").Width = 25
    Tables("大货用量表_table2").Cols("物料基本信息_适用尺码").Width = 100
    Tables("大货用量表_table2").Cols("物料基本信息_物料编码").Width = 100
    Tables("大货用量表_table2").Cols("用量信息_待定").Width = 25
    Tables("大货用量表_table2").Cols("用量信息_上级").Width = 30
    Tables("大货用量表_table2").Cols("用量信息_领料部门").Width = 40
    Tables("大货用量表_table2").Cols("用量信息_变更日期").Width = 80
    Tables("大货用量表_table2").Cols("用量信息_下级").Width = 30
    Tables("大货用量表_table2").Cols("供应商属性_供应商名称").Width = 80
    Tables("大货用量表_table2").Cols("供应商属性_转换率").Width = 50
    Tables("大货用量表_table2").Cols("供应商属性_采购单位").Width = 25
    Tables("大货用量表_table2").Cols("供应商属性_成份").Width = 100
    Tables("大货用量表_table2").Cols("款号").Width = 50



End If
Tables("大货用量表_table2").ResumeRedraw

保存按钮代码：
For Each drr As Row In CurrentTable.Rows
    Dim dr1 As DataRow = DataTables("大货用料表").AddNew
    dr1("物料基本信息_序号")=drr("物料基本信息_序号")
    dr1("物料基本信息_物料大类")=drr("物料基本信息_物料大类")
    dr1("物料基本信息_客供")=drr("物料基本信息_客供")
    dr1("物料基本信息_物料名称")=drr("物料基本信息_物料名称")
    dr1("物料基本信息_物料辅助说明")=drr("物料基本信息_物料辅助说明")
    dr1("物料基本信息_部位及用途")=drr("物料基本信息_部位及用途")
    dr1("物料基本信息_布封")=drr("物料基本信息_布封")
    dr1("物料基本信息_克重")=drr("物料基本信息_克重")
    dr1("物料基本信息_单位")=drr("物料基本信息_单位")
    dr1("物料基本信息_版规格配色要求")=drr("物料基本信息_版规格配色要求")
    dr1("物料基本信息_不分色")=drr("物料基本信息_不分色")
    dr1("物料基本信息_适用颜色")=drr("物料基本信息_适用颜色")
    dr1("物料基本信息_同色")=drr("物料基本信息_同色")
    dr1("物料基本信息_同量")=drr("物料基本信息_同量")
    dr1("物料基本信息_分码")=drr("物料基本信息_分码")
    dr1("物料基本信息_适用尺码")=drr("物料基本信息_适用尺码")
    dr1("物料基本信息_物料编码")=drr("物料基本信息_物料编码")
    dr1("用量信息_待定")=drr("用量信息_待定")
    dr1("用量信息_上级")=drr("用量信息_上级")
    dr1("用量信息_领料部门")=drr("用量信息_领料部门")
    dr1("用量信息_变更日期")=drr("用量信息_变更日期")
    dr1("用量信息_下级")=drr("用量信息_下级")
    dr1("供应商属性_供应商名称")=drr("供应商属性_供应商名称")
    dr1("供应商属性_转换率")=drr("供应商属性_转换率")
    dr1("供应商属性_采购单位")=drr("供应商属性_采购单位")
    dr1("供应商属性_成份")=drr("供应商属性_成份")
    dr1("款号")=drr("款号")
    dr1("颜色1")=drr("颜色1")
    dr1("颜色2")=drr("颜色2")
    dr1("颜色3")=drr("颜色3")
    dr1("颜色4")=drr("颜色4")
    dr1("颜色5")=drr("颜色5")
    dr1("颜色6")=drr("颜色6")
    dr1("颜色7")=drr("颜色7")
    dr1("颜色8")=drr("颜色8")
    dr1("颜色9")=drr("颜色9")
    dr1("颜色10")=drr("颜色10")
    dr1("颜色11")=drr("颜色11")
    dr1("颜色12")=drr("颜色12")
    dr1("颜色13")=drr("颜色13")
    dr1("颜色14")=drr("颜色14")
    dr1("颜色15")=drr("颜色15")
    dr1("颜色16")=drr("颜色16")
    dr1("颜色17")=drr("颜色17")
    dr1("颜色18")=drr("颜色18")
    dr1("颜色19")=drr("颜色19")
    dr1("颜色20")=drr("颜色20")
    dr1("尺码1")=drr("尺码1")
    dr1("尺码2")=drr("尺码2")
    dr1("尺码3")=drr("尺码3")
    dr1("尺码4")=drr("尺码4")
    dr1("尺码5")=drr("尺码5")
    dr1("尺码6")=drr("尺码6")
    dr1("尺码7")=drr("尺码7")
    dr1("尺码8")=drr("尺码8")
    dr1("尺码9")=drr("尺码9")
    dr1("尺码10")=drr("尺码10")
    dr1("尺码11")=drr("尺码11")
    dr1("尺码12")=drr("尺码12")
    dr1("尺码13")=drr("尺码13")
    dr1("尺码14")=drr("尺码14")
    dr1("尺码15")=drr("尺码15")
    dr1("尺码16")=drr("尺码16")
    dr1("尺码17")=drr("尺码17")
    dr1("尺码18")=drr("尺码18")
    dr1("尺码19")=drr("尺码19")
    dr1("尺码20")=drr("尺码20")
    dr1("尺码21")=drr("尺码21")
    dr1("尺码22")=drr("尺码22")
    dr1("尺码23")=drr("尺码23")
    dr1("尺码24")=drr("尺码24")
    dr1("尺码25")=drr("尺码25")

    dr1.Save()
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106464 积分：541467 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/4 17:51:00 [只看该作者]

For Index As Integer = 0 To Values.Length - 1
         ' Output.Show(Values(Index))
        dt.datacols.Add("颜色" & (Index+ 1), Gettype(Integer),"",Values(Index)) ''从textbox中获取数字集合并生成新列
        Output.Show(Values(Index))
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/8/6 9:27:00 [只看该作者]

这个转换的时候，能否将水平表的列标题转换为垂直表的列名

 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2018/8/6 9:28:00 [只看该作者]

这个转换的时候，能否将水平表的列标题转换为垂直表的列名

 回到顶部
总数 21 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询