这个好像不行,怎么改?
订单主表中按钮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编辑过]