从外部数据库获取指定条件的数据Dim sa As String = e.Form.Controls("荒料编号").value '字符串例如:TF15-03K0012"
Dim Parts() As String = sa.Split("-")
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.C
cmd.CommandText = "SELECT DISTINCT 流水编号 Fro m {质检} WHERE 打包 = 0" '此处再加上查询条件:获取未打包并且字符串包含 Parts(1).SubString(0,3),
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("流水编号")
cmb.ComboList= dt.GetComboListString("流水编号")