以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  能不能帮我改一下这个代码。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145208)
--  作者：hongye
--  发布时间：2020/1/12 15:00:00
--  能不能帮我改一下这个代码。
这个好像不行，怎么改？

订单主表中按钮ModalButtonClick


Forms("添加辅料").Open

Dim xxbt As WinForm.Label = Forms("添加辅料").Controls("信息标题")

xxbt.text = "辅料信息"

vars("i") = e.Sender.Name.Split("_")(2)


添加辅料窗口AfterLoad

Dim qymc As WinForm.Label = e.Form.Controls("企业名称")
Dim cmd As New SQLCommand
Dim ds As DataTable
cmd.C
\'------------------设置企业名称--------------------
cmd.CommandText = "Select * fro m {企业信息}"
Dim Values = cmd.ExecuteValues
If Values.Count > 0 Then
    qymc.text = Values("企业名称")
Else
    qymc.text = "企业名称未设置,请设置!"
    qymc.ForeColor = Color.Red
End If
\'------------------查看信息标题---------------------
Select Case Forms("添加辅料").Controls("信息标题").text
    Case "辅料信息"
        cmd.CommandText = "SELECT * Fro m {辅料信息表}"
        ds = cmd.ExecuteReader(True)
        Dim drt As DataTable = DataTables("添加辅料_Table1")
        Dim tbl As Table = Tables("添加辅料_Table1")
        tbl.DataSource = ds
        tbl.SetColVisibleWidth("辅料名称|135|辅料质地|90|规格|150|计量单位|70")
        Dim szlb As WinForm.ComboBox = e.Form.Controls("类别")
        szlb.ComboList = "品牌指示类|包装类|绳线带花边类|钮扣拉链类|装饰类|粘衬牵带类"
        Dim cxlb As WinForm.ComboBox = e.Form.Controls("查询类别")
        cxlb.ComboList = drt.GetComboListString("辅料类别")
        Dim cxcf As WinForm.ComboBox = e.Form.Controls("查询成份")
        cxcf.ComboList = drt.GetComboListString("辅料质地")
        Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
        rgd.Table = tbl \'指定绑定表
        rgd.Build()
        drt.load()
        tbl.Filter = ""
    Case "面料信息"
        MessageBox.Show("目录信息")
    Case Else
        MessageBox.Show("无效值")
End Select
[此贴子已经被作者于2020/1/12 16:51:38编辑过]
--  作者：有点蓝
--  发布时间：2020/1/12 21:01:00
--  
没看懂。具体什么东西不行？有什么错误？
--  作者：hongye
--  发布时间：2020/1/13 11:17:00
--  
我的意思是，在某个窗口的ComboBox中ModalButtonClick点击打开添加辅料窗口
并将 Forms("添加辅料").Controls("信息标题").text改为"辅料信息"
如果添加辅料窗口Forms("添加辅料").Controls("信息标题").text=辅料信息，那么该窗口中的Tables("添加辅料_Table1")通过SQL数据库将“辅料信息表”加载到ables("添加辅料_Table1")中
现在问题是不能加载

Select Case Forms("添加辅料").Controls("信息标题").text
 Case "辅料信息"
。。。
 Case "面料信息"
。。。
Case Else
。。。
End Select
现在不知道为什么一直是跳到Case Else的结果
--  作者：有点蓝
--  发布时间：2020/1/13 11:25:00
--  

ModalButtonClick


vars("i") = e.Sender.Name.Split("_")(2)

vars("xxbt") = "辅料信息"

Forms("添加辅料").Open


添加辅料窗口AfterLoad

e.form.Controls("信息标题").text = vars("xxbt")
Dim qymc As WinForm.Label = e.Form.Controls("企业名称")
Dim cmd As New SQLCommand
Dim ds As DataTable
……