专家坐堂-分别显示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  分别显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50664)

--  作者：yangwenghd
--  发布时间：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
--  发布时间：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
--  发布时间：2014/5/11 8:43:00
--
谢谢！显示的可以只是属于单独的行吗？
现在第一行输入B 显示的一种、输入C又显示的是一种，能不能输入后点击以前的行，第一列的A 或者B 就显示到当列输入的数据，相对于有个记忆的作用，在已经输入数据的列里面点击哪一行窗口就显示那一行对于的数据

--  作者：y2287958
--  发布时间：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
--  发布时间：2014/5/11 13:33:00
--

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

兄弟能帮我看看个是什么意思吗？

--  作者：有点甜
--  发布时间：2014/5/11 13:46:00
--

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

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:学习变换.table

--  作者：yangwenghd
--  发布时间：2014/5/11 13:54:00
--

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

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

[此贴子已经被作者于2014-5-11 13:57:18编辑过]

--  作者：yangwenghd
--  发布时间：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
--  发布时间：2014/5/11 15:10:00
--

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

和系统的加载图片一样，只是路径和加载的路径一样，不改变图片的位置

--  作者：有点甜
--  发布时间：2014/5/11 16:31:00
--

这个意思？


下载信息  [文件大小：   下载次数： ]
点击浏览该文件:学习变换.table