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


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

主题:颜色和尺码不固定

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


加好友 发短信
等级:超级版主 帖子:106464 积分:541467 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/4 8:59:00 [显示全部帖子]

看看这个:http://www.foxtable.com/webhelp/scr/2965.htm

数据库存储值参考表A的设计,一个颜色/尺寸存储一行,而不是一个颜色/尺寸创建一个列

界面需要显示的时候通过代码转换为表B的形式

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


加好友 发短信
等级:超级版主 帖子:106464 积分:541467 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/4 10:42:00 [显示全部帖子]

请仔细理解4楼的说明。您这种表结构请恕我无能为力

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


加好友 发短信
等级:超级版主 帖子:106464 积分:541467 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/4 14:47:00 [显示全部帖子]

首先要保证2个CheckedComboBox的值个数是一致的

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(",")
    For Index As Integer = 0 To Values.Length - 1
        '' Output.Show(Values(Index))
        dt.datacols.Add("N" & Values(Index), Gettype(Integer),"",Values1(Index)) ''从textbox中获取数字集合并生成新列
        
    Next

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


加好友 发短信
等级:超级版主 帖子:106464 积分:541467 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/4 15:05:00 [显示全部帖子]

没看懂你的问题。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


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

肯定不是12楼代码的问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部