Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分别显示


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

主题：分别显示
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		分别显示  发帖心情 Post By：2014/5/10 21:51:00 [只看该作者]

麻烦你们一天了！
1、如果在第一列显示输入A 窗口显示1-1 1-2、、、
2、设计一个添加图片的按钮，
3、能问一下PictureBox1的尺寸大小可以根据图片大小自动改变吗？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140510214339.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:学习变换.table


[此贴子已经被作者于2014-5-10 21:54:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/5/10 23:16:00 [只看该作者]

试试DataColChanged事件：

If e.DataCol.Name = "第一列"
    Dim c0 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox10")
    Dim c1 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox11")
    Dim c2 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox2")
    Dim c3 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox9")
    Dim s As String = "1-1/1-2/1-3/1-4,2-1/2-2/2-3/2-4,今天/明天/后天/以后"
    If e.DataRow.IsNull("第一列") = False
        Dim i As Integer = "ABC".IndexOf(e.DataRow("第一列"))
        If i >= 0
            c0.Text = s.Split(",")(i).Split("/")(0)
            c1.Text = s.Split(",")(i).Split("/")(1)
            c2.Text = s.Split(",")(i).Split("/")(2)
            c3.Text = s.Split(",")(i).Split("/")(3)
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/5/11 8:43:00 [只看该作者]

谢谢！显示的可以只是属于单独的行吗？
现在第一行输入B 显示的一种、输入C又显示的是一种，能不能输入后点击以前的行，第一列的A 或者B 就显示到当列输入的数据，相对于有个记忆的作用，在已经输入数据的列里面点击哪一行窗口就显示那一行对于的数据
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/5/11 11:35:00 [只看该作者]

CurrentChanged事件：
If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim c0 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox10")
Dim c1 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox11")
Dim c2 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox2")
Dim c3 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox9")
Dim s As String = "1-1/1-2/1-3/1-4,2-1/2-2/2-3/2-4,今天/明天/后天/以后"
If e.Table.Current.IsNull("第一列") = False
    Dim i As Integer = "ABC".IndexOf(e.Table.Current("第一列"))
    If i >= 0
        c0.Text = s.Split(",")(i).Split("/")(0)
        c1.Text = s.Split(",")(i).Split("/")(1)
        c2.Text = s.Split(",")(i).Split("/")(2)
        c3.Text = s.Split(",")(i).Split("/")(3)
    Else
        c0.Text = Nothing
        c1.Text = Nothing
        c2.Text = Nothing
        c3.Text = Nothing
    End If
Else
    c0.Text = Nothing
    c1.Text = Nothing
    c2.Text = Nothing
    c3.Text = Nothing    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/5/11 13:33:00 [只看该作者]

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2014.3.8.1
错误所在事件：表A,CurrentChanged
详细错误信息：
索引超出了数组界限。

兄弟 能帮我看看个是什么意思吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/5/11 13:46:00 [只看该作者]

如下，图片控件，尽量不要根据图片大小变化，这样不利于窗口排版。

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:学习变换.table
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/5/11 13:54:00 [只看该作者]

好，感谢 都听你的！能知道甜兄弟的真实名字吗？

图片能不能显示在窗口的左上方啊！

[此贴子已经被作者于2014-5-11 13:57:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/5/11 14:22:00 [只看该作者]

兄弟 我这个是那里出了问题啊！能帮我看看吗 ?谢谢

 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim c0 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox01")
Dim c1 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox02")
Dim c2 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox03")
Dim c3 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox04")
Dim s As String = "肩宽/胸围/衣长,肩宽/胸围/肩宽,腰围/裤长/臀围/裤边围"
If e.Table.Current.IsNull("淘宝档案_类型") = False
    Dim i As Integer = "T恤,衬衫,短裤".IndexOf(e.Table.Current("淘宝档案_类型"))
    If i >= 0
        c0.Text = s.Split(",")(i).Split("/")(0)
        c1.Text = s.Split(",")(i).Split("/")(1)
        c2.Text = s.Split(",")(i).Split("/")(2)
        c3.Text = s.Split(",")(i).Split("/")(3)
    Else
        c0.Text = Nothing
        c1.Text = Nothing
        c2.Text = Nothing
        c3.Text = Nothing
    End If
Else
    c0.Text = Nothing
    c1.Text = Nothing
    c2.Text = Nothing
    c3.Text = Nothing
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/5/11 15:10:00 [只看该作者]

问问甜兄弟，能不能让那个图片只属于那一行，

和系统的加载图片一样，只是路径和加载的路径一样，不改变图片的位置
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/5/11 16:31:00 [只看该作者]

这个意思？

  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:学习变换.table
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 7 次数据查询